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LL NN NNNN KK KK VV VV MM MM AAAAAAAAAA LL LL 00 00 
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module Lnk_vmallo 
(ident = 'v04-000' 
addressing mode 
(external = general 
peneaterany = long_relative 


begin 
i 
pays nee gauge eer ener. 
® ® 
ie COPYRIGHT (c) 1978, 1980 1982, 1984 B * 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
™ ALL RIGHTS RESERVED. ° 
® 
le hg he A a aite UNDER A LICENSE AND MAY BE USED AND corite * 
it ONLY IN ACCORDANCE WITH THE TER ane OF SUCH bICERSe AND WITH THE * 
'e INCLUSION OF THE ABOVE fo ptdid OTICE. THIS SOFTWARE OR ANY OTHER * 
'w COPIES THEREOF MAY NOT BE P ROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'w TRANSFERRED. * 
or 
'® re INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 
& 
2 
fe 
w 
ae 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


'@ 
SRR RRRAAA AAA AAAAAAAERAAAAAAAAAAAA AAA AAAERAAARAARAAAARARERAeKeRARAAee 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
HIS N 


++ 
MODULE: LNK_VMALLO 
FACILITY: LINKER 
ABSTRACT: ALLOCATION OF VIRTUAL MEMORY TO IMAGE. 
HISTORY: 
VERSION: X01.00 
AUTHOR: T.J. PORTER 30-MAR-77 
MODIFIED BY: 
v03-017 ADEQOOT Alan D. Eldridge 30-Jul-1984 


Use orees fomurnes by CNKSREQU STMEM rather than assuming 
LINS_MEMF 


ere te te te Te 
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3 8 058 1! 

; 9 0059 1! V03-016 JwWwT0152 Jim Teague 20-F eb-1984 
3 o0 Boee ! Adjustment for longer : obal section names. 

: 6 06¢ 1 i v03-015 ywT0088 Jim Teague 12-Jan-1983 
; o7 ber : Filter O-Length ae out of DMT. 

: 65 065 1 i V03-014 jwT0083 Jim Teague 07-Jan-1983 
; 6 4] 7 f on't let Linker ru in vacant low address space in 
; 44 be ! } n based executable images. 

; 9 69 1 i v03-013 swT0078 Jim Teague 15-Dec-1982 
3 £9 Boy : Change inplenentat ten of DMT. 

; fF 007¢ 1! v03-012 yuT0074 Jim Teague 09-Dec-1982 
; ie, Booz : Finalize DMT info. 

: 25 0075 1: v03-011 ywT0061 Jim Teague 22-0¢t-1982 
Tee | 0076 1! Add debugger image section for images linked /debug. 
3 77 0077 1! 

: 78 0078 1 !-- 
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;: 144 1! 

; O81 ! i“ 

$ es oes ! FUNCTIONAL DESCRIPTION: 

3 85 Boge 1 / THIS MODULE CONTAINS THE VIRTUAL MEMORY ALLOCATION LOGIC 

4 a6 5 : OF THE L “so os ‘ ers IS ON 

4 Hs 80 8 1 i WHICH ALLOCATES MEMORY TO P=SECTIONS OF EACH OF He 

3 8 0088 1: FOUR POSSIBLE IMAGE SECTIONS, READ-ONLY, A Teams E 

; 690 0089 1} ECUTE-ONLY AND CKECUTE-URITE. AS WELL 

; 91 04 1 i THE USER STACK. 

7 091 1 ACH IMAGE-SECTION IS BUILT, THE eee iaaas WHOSE 

: 9 009¢ 1/ ATTRIBUTES MATCH THOSE OF THE [MAGE SECTION ARE 

; 94 0093 1! SIGNED A BASE ADDRESS IN LEXICAL ORDER. AS EACH 

3 95 0094 1! IS ASSIGNED ITS BASE ADDRESS, ANY RELOCATABLE SYMBOLS OWNED 

H 96 0095 1! BY THAT P-SECTION ARE RELOCATED BY ADDITION OF 

3 97 0096 1! THE ALIGNED P-SECTION BASE ADDRESS. 

; | «(98 0097 1! AFTER ALL REQUIRED IMAGE SECTIONS HAVE BEEN Sully 

3 99 0098 1 i THE HEADER SIZE IS CALCULATED AND nae BASE VIRTUAL 

; 100 0099 1! ER IN EACH ISD (ON SINGLY LINKED LIST) 

b 13) Bigs : ES IS RELOCATED BY THE NUMBER OF HEADER BLOCKS. 

3 198 0102 1 i- 

: 104 0103 1! 

; 105 0104 1 Library 

: 106 0105 1 "LIBL32'; ' SYSTEM USER DATA STRUCTURES 

; 107 0106 1 require 

; 108 0107 1 *PREFIX'; ! GENERAL DATA, MACROS ETC. 

; 109 ogee 1 Library 

: 110 0 1 *DATBAS'; ! DATA BASE DESCRIPTION 

- 27 0224 1 require 

: 112 0225 1 "ISGENC’; ! GENERATION CONTROL TABLES 

3 113 0609 1! 

s 116 0610 1 forward routine 

s FS 0611 1 allocluster : novalue, ! GATHER P-SECTIONS INTO ie FR FOR CURRENT CLUSTER 
s 116 Belg 1 compare_bases, ' ACTION ROUTINE FOR aici TREE 

s 117 061 1 alloc_node, ' ACTION ROUTINE FOR LIBSINSERT_TREE 

; 118 0614 1 reloctuster : novalue, ' RELOCATE CONTENTS OF CURRENT or cSten 
; 119 0615 1 ink$crefixisd, ' LD FIXUP SECTION ISD 

: 120 0616 1 Lnk$cluvirmem, ' ALLOCATE VIRTUAL MEMORY FOR A CLUSTER 
3: 121 0617 1 inkSeesleste tu. ' TEST/SET LAST CLUSTER 

; 1$¢ 0618 1 stack_isectbld : novalue, : BUILD USER age IMAGE SECTION 

: 1 0619 1 normal_isectbld : novalue, ' NOR R ISECT 

: 126 0 1 buildiSd : novalue; ! CREATE 1s) 

; 125 0621 1! 

: 126 § 1 external 

: 127 1 Lnk$gl_omddst, ' COUNT OF OBJMODS CONTRIBUTING TO DST 
: 128 4 1 ink$gw_pscdst: word, ' COUNT OF PSECTS IN ABOVE OBJMODS 

: 19 36 . ink$gl-shrsyms, ' NUMBER OF SYMBOLS IN OTHER SHAREABLE IMAGES 
: 1 $ 1 ink$gl_shrings, ' NUMBER OF SHAREABLE IMAGES REFERENCED 
s 131 1 ink$gl_shrclstrs, ' NUMBER OF PIC/NON-PIC SHR IMAGES IN LINK 
: 13 3 1 ink$al~ _valctltb, ' ADDRESS OF CREF BY VALUE CONTROL TABLE 
eS 1 inkSat_sytbl fat, ' CREF CONTROL inate 

oe hk ink$gl“tfrpsc : ref block(,bytel, ' POINTER TO P-SECT CONTAING USER 

3 Yoo 3 ink$gl_tfradr, ! TRANSFER ADDRESS 

s 136 0632 1 Lnk$gl_dbgtfps : ref blockC,bytel, ' POINTER TO PSECTION CONTAINING DEBUG 
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9 
- 9 
ink$gldbgttr. ’ 
ink$gl-ctlmsk : blockC,bytel, ' 
nk$gl_minva, ; 
inks9t¢lulst : vector([2) H 
ink$gl_lastclu : ref blockl ,bytel, ! 
ink$gl_curclu : ref piocks RY el, ! 
ink$gl_defclu : block ebyte ° ; 
ink$gl_fvmist : ref blockl,byte; : 
external routine 
errs ner eney 
crf$insrtref, 


LibSinsert_tree, 
Lnk$allobLk : novalue, 
Lnk$allovirmem, 
Link$findvirmem, 
Lnk$fndpscmsk, 
Lnk$requestmem; 


i] 
external literal 


—_e 
> 
ow 
oO 
°o 
3 
| 
@ 
3 
a 


— 
3 
wn 
a 
| 
°o 
—~ 
a 
ve} 

> 
rs 
= 
> 


global 


: ref blockC,byte] 
: ref blockt ytel 

: ref blo ke, ytel, 
: ref block(C,bytel, 
ink$gl_istgadr. 
ink$gl_las gadr, 


nk$gw_shriscts : word, 
ink$gl_maplst, 
ink$gw_stack : word, 
ink$gw_nisects : word; 


global Literal 
def$c_stack = 20 
def$c_base = %x'200'; 


GENERATE IMAGE SECTION GENERATION CONTROL 


isgentbl (exe, 

rdwrtexerelvec, 
rdurtexerelvec, 
rdwrtexerelvec, 
rdurtexerelvec, 
rdwrtexerelvec, 
rdwrtexerelvec, 


4 00:37: AX=11 Bliss-32 V4.0-74 Page 4 

4 93:25: LINKER. SRC JLNKVMALLO.B32; 1 9 02) 

TRANSFER ADDRESS | 
LINK CONTROL MASK | 
LOWEST VIRTUAL ADDRESS ALLOCATED 

CLUSTER DESCRIPTOR LISTHEAD 

POINTER TO LAST CLUSTER DESCRIPTOR ALLOCATED | 
CURRENT CLUSTER DESCRIPTOR POINTER 

DEFAULT CLUSTER 

FREE V.M. LIST ENTRY 

INSERT KEY | 
INSERT REF TO KEY IN CREF TABLE | 
INSERT INTO BALANCED BINARY TREE | 
DYNAMIC MEMORY ALLOCATOR | 
ALLOCATE SPECIFICE REGION OF VIRTUAL MEMORY | 
FIND A LARGE ENOUGH REGION OF " | 
FIND P=SECTIONS BY MASK | 
REQUEST SOME VM FOR IMAGE BUFFER | 


! BAD BASE ADDRESS SYMBOL 

! CLUSTER= BASED CLUSTER BELOW BASE= BASE 
! CONFLICTING MEMORY REQUIREMENTS 
! INSUFFICIENT VIRTUAL MEMORY 


! NO IMAGE FILE CREATED 
! STACK OVERFLOW 


BUFFER FOR DMT 
INFO TABLE 
LOWEST VA CLUSTER (NO SHR IM. 

TOR OF HIGHEST VA CLUSTER (NO SHR | | 
PTOR OF LAST CLUSTER (INCLUDES SHR I | 


“ FIXUP | 
NUMBER OF ISECTS FROM PIC SHAREABLE IMAGES | 
LIST OF P=SECTIONS FOR MAP OUTPUT (IN V.A. ORDER) | 


STACK SIZE (PAGES) 
NUMBER OF IMAGE SECTIONS 


DEFAULT STACK SIZE (PAGES) 
DEFAULT BASE ADDRESS 


TABLES 


psect own = $plit$ (nopic,concatenate, local .noshare,noexecute,nowrite); 


EXECUTABLE IMAGE 
READ ONLY PA 
READ WRITE DATA 
EXECUTE ONLY 
0p ag CODE 


AD ONLY VECTOR 
READ WRITE VECTOR 
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v04=000 1en8ep= 1984 9:20:39 — ELTNKER SRESLNKVMALLO. B82: 1 “a 
> 194 P 0690 1 -U_X_v, fdwrtexerelvec, ! EXECUTE ONLY VECTO 
; 195 P 0691 1 _Uxwv, rdwrtexereivec, ' OVERWRITTEN CODE VECTOR 
; 138 £36 1 stack,0); ! STACK == MUST BE LAST 
; 19 P 0693 1 isgentblTsys, ' SYSTEM IMAGE 
; 198 b03¢ 1 s_alone,gps$m_rel); ' IS A SINGLE SECTION 
; 199 P 0695 1 isgentbl(Shr, ! SHAREABLE IMAGE 
3 590 Pp B938 1 Sf. shrpicvec, 
; 201 P 0697 1 _S.rw, shrpicvec, 
3 $06 P 0698 1 -S.X_. shrpicvec, 
; 20 P 0699 1 _S_xW, shrpicvec, 
> 204 P0700 1 fae shrpicvec, 
> 205 P0701 1 ---fW¥, shrpicvec, 
; 206 P 07 § 1 _--%.- shrpicvec, 
; 207 P0703 1 _..%¥, shrpicvec, 
; 208 P0704 1 _spr_. shrpicvec, 
3 $8 P0705 1 _sprw, shrpicvec, 
: 210 P 0706 1 _SPx_, shrpicvec, 
: si) P 0707 1 _Spxw, shrpicvec, 
: \¢ P 0708 1 _-Pr_. shrpicvec, 
: € P 0709 1 _.prw, shrpicvec, 
> 214 P0710 1 _-PX_. shrpicvec, 
; 215 P0711 1 -.PxW, shrpicvec, 
; 216 Pp orle 1 Srv. shrpicvec, ! VECTOR IMAGE SECTIONS 
5 air P0713 1 _S_rwv, shrpicvec, 
; 218 P0714 1 -S_xX_Vv. shrpicvec, 
3 ely P0715 1 _S_xwv, shrpicvec, 
; 220 P0716 1 _-.f.V¥. shrpicvec, 
; 221 P0717 1 _..fwv, shrpicvec, 
3 $s¢ P0718 1 XV. shrpicvec, 
s ge P0719 1 _._xWv, shrpicvec, 
: 224 P 0720 1 _spr_v. shrpicvec, 
: 225 P 144 1 _sprwv, shrpicvec, 
; 226 P 07 ¢ 1 _SPxX_v, shrpicvec, 
} der P 0725 1 _spxwv, shrpicvec, 
>; 228 P0724 1 _-Priv. shrpicvec, 
; 229 P0725 1 _-prwv, shrpicvec, 
: 230 P 0726 1 _-PX_v, shrpicvec, 
; 231 P Bese 1 _.pxwv, shrpicvec, 
3 $38 P 0728 1 __PxXwv, shrpicvec, 
3 <z Ore? ! ~Stack,0); ! MUST BE THE LAST 
3 235 Or : psect own = SownS (nopic,concatenate, local ,noshare,noex:-:ute,write); 
3 ; 7 ars 1 own 
: 734 «1 defclubased, ' REMEMBER IF DEFAULT CLUSTER IS BASED 
; 2 0735 1 curpsect : ref block(,bytel, ' POINTER TO CURRENT PSECT DESCRIPTOR 
; 240 07 § 1 current_base, ! CURRENT BASE IN ISECT 
; 241 8? 1 isect_base, ! BASE OF THE IMAGE SECTION | 
; 4g 738 «#1 oh ig Ns initial(system_space), ' CONTROL REGION ADDRESS (FOR NEXT ISECT ALL. 
: 24 358 1 sect : byte ' J-SECT CONTROL TABLE INDEX 
: 244 740 1 numisects : byte ' POTENTIAL NUMBER OF ISECTS IN THIS CLUSTER | 
: 245 741 «#1 isectgentbl : ref bloshvectorl. ische_size.byted. ! ISECT GENERATION TABLE FOR CURRENT CLUSTER | 
3 r¢ rg 1 previsect : ref block byte. ' POINTER TO PREVIOUS ISECT DESCRIPTOR BLOCK 
: 26 7435 «1 isctdesc : ref blockl,byted; ! I=SECT DESCRIPTOR BLOCK | 
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THIS ROUTINE IS THC DRIVER FOR MEMORY ALLOCATION. 


AX-11 Bliss-32 V4.0 
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O PASES OF THE CLUSTER LIST ARE MADE. THE FIRST PASS wate 


SPACE TO CLUSTERS WHICH HAVE BEEN GIVEN 


Begin. routine Lnk$vmallo 
i* 

i 

i 

spectre ADDRESS 
i 


THIS IS 


BOM 


ND 
ITLY POSITIONED. 
ST 


mirm4 OO 


OF THE RE 


a 
local status, 

coro : ref locks. ,bytel, 
; basesymsn : ref blockl,byteJ; 


SELECT THE CORRECT ISECT GENERATION CONTROL TABLE 
if alnkdot ctlmskClnk$v_exe] 


et: SHAREABLE ae tg 
SPACE LARGE ENOUGH FROM THE BASE 


! THE SYMBOL TABLE ENTRY FOR THE SYMBOL 


IF NORMAL EXE IMAGE POINT TO 


then begin 
isectgentbl = exe_isgentbl; ! ITS CONTROL TABLE AND SET 
-—~ ties = .exe_isects; ! NUMBER OF POTENTIAL Isects PER CLUSTE 
else Zz yo L_ctlmskClnk$v_sys] ! POINT TO SYSTEM IMAGE CONTROL TABLE 
en begin 
so SE = sys_isgentbl; ' AND THEN 
—~ eee = .sys_isects; ! POTENTIAL NUMBER OF ISECTS 
else begin ! IT MUST BE A eens IMAGE 
isectgentbl = shr_isgentbl; ' $O SET THE CONTROL TABLE 
manana te = .shr_isects; ! AND NUMBER OF ISECTS PER CLUSTER 
end; 
defclubased = ,lnk$gl_defclu Cclu$v_based); ' REMEMBER IF DEFAULT CLUSTER BASED 
tnkeet mB el = 0; INITIALLY POINTS TO NO CLUST 
n owc } 
tnk$gt- curclu = Lak$gl_ clulst (OJ; ! START AT TOP OF CLUSTER LIST 
while Tink$gl_curclu = TLnk$gl_ cure lu  felust nxtcluJ) neq 0 ' GET NEXT CLUSTER DESCRIPTOR 
do if not . nk$ol. curclu Celu$v_sh ! AND IF A USER CLUSTER WITH A 
and > $gl-curclu CeluSv_ “posed ' BASE ADDRESS SPECIFIED 
then begin ' ITS TIME HAS COME 
$gl_ctimsk Clnk$v picing] = false; ! THE IMAGE IS NON-PIC 
basead rym = ink Sal eurclu Celust_ base); i CELL CONTAINS POINTER TO THE SYMBOL 
- Lnk$gl a on Tube _symbas ! IF THE ADDRESS IS SYMBOLICALLY SPECIF 
and .basead rsym neq ' AND IT WAS DEFINED 
then begin : A ats FIGURE OUT IF VALID 
basesymsnb = .baseaddrsym - smannacareys Mose, Teale ming 
Ten: !" POINT TO NAME BLOCK 


if (. bescodire m m$w_flags] and (gs ym _def 
ait ie > ayia’ rely) oe gsy$a_ det 
en 


gin 
si aed (in, bases 
. bas syasne Pango yt 
if .lnk$ € tt ask ( 
— $r° ase 


then Lnk$gl_curclu 
clu$l"base 


else Ink$gl"curclu 


= pystem_space 
= 0; 


T 
! FIRST CHECK ABSOLUTE DEFINITION 


! AND ISSUE ERROR IF NOT 


! IF_A SYSTEM ow SET THE 
: BASE ADDRESS FOR IT 
! OTHERWISE DEFAULT TO ZERO 


Page 


TABLE 
IED 


j 
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end 
else begin 
if not (.lnk$gl_ctlmsk Clnk$v_sys] and not ! OTHERWISE UNLESS SYSTEM IMAGE WITHOUT A HE 


tn gl ctlmsk ChnkS sysheadr)) 
then Lnk$gl_curclu CcTu$l_base] = -baseaddrsyn Csya$| valued + ! THEN SET TO NEXT PAGE BEY 


511 and not 
else (nk$gl_curclu Cclu$l_base] = .baseaddrsym CsymSl_valuel; ! IF NO /HEADER, THEN DON'T 
end; 
if .lnk$gl_ctlmsk Clnk$v_sys] ! IF A SYSTEM IMAGE SYMBOLIC 
~— ink$gl_fvmist Cfvm$l_address] = .lnk$gl_curclu Cclu$l_baseJ; ! BASED THEN SET V.M. BASE 
if .defclubased ! IF DEFAULT CLUSTER IS BASED 
and .lnk$gl_curclu Fclust based issu .lnk$gi_defclu Cclu$l_base] 
then signal ( Lin$_clubelbas 
»»(nk$gl_curclu Lclu$l_base] 
» ink$gl_curclu Cclu$b_namingJ 
-lnk$gl_defclu Cclu$l_base] 


GO ALLOCATE THE CLUSTER 
CONTENTS TO VIRTUAL MEMORY 
THEN ATTEMPT TO ALLOCATE THAT REGION 


allocluster (); ~ 

if not Lnk$allovirmem (.lnk$gl_curclu pei ustbesed 

th eelnk$gl_curclu Cclu$l_pages]) 
en 


begin 
(nkSgl_ct imskC Unk$v_inage] = false; 
signal ( Lin$_confmem, 

Seg PES ened be pd tea 

--ink$gl_curclulclu$l pages) 

» (nk$glcurclu Cclu$B_naming) 
5 Lin$_noimgfil 


TURN OFF IMAGE PRODUCTION 
AND ISSUE ERROR ON FAILURE 


— 
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33 : 
33 end; 
33 ink$setlastclu (.lnk$gl_curclu); ' SEE IF LAST CLUSTER 
33 relocluster (); : 
33 end 
340 else if .tnk$gl_curclu e}ubv_sbr tog) ! IF THIS IS A BASED SHAREABLE IMAGE 

341 and .ink$gl_curclu Cclu$v_based 
Hs then ink$cluvirmem (.lnk$gl_curclu); ! ALLOCATE VIRTUAL MEMORY FOR CLUSTER 

44 i ALL EXPLICITLY BASED VIRTUAL MEMORY HAS NOW BEEN ALLOCATED. NOW MAKE 

5 0 ! ANOTHER PASS DOWN THE CLUSTER LIST, ALLOCATING MEMORY TO THE USER 

#6 se DEFINED CLUSTERS WHICH HAVE NO EXPLICIT ADDRESS SPECIFICATION. 

48 Bc8 baseaddrsym = .ink$gl_minva; ! SAVE MINIMUM ADDRESS 
$66 Bes if not .lnk$gl_ctlmsk Clnk$v_shrJ ! IF NOT CREATING SHAREABLE IMAGE 

51 846 then if Lnk$alTovirmem (0, ' FORCE ALLOCATE FiRST PAGE IF STILL FREE 

26 tf then Lnk$gl_minva = .baseaddrsym; ! RESTORE MINIMUM ADDRESS IF SUCCEEDED 

4 Rep ink$gl_curclu = Lnk$gl_clulst(0J; ! START AT TOP OF LIST 
23 B82) “bite CinkSel_curclu = .lnk$gl_curclulclu$l_nxtclu]) neq 0 ! GET NEXT CLUSTER DESCRIPTOR | 

io begin 
58 B88 if. not .lnk$gl_curclu (clu$v_basedJ ' IF BASE ADDRESS NOT YET ESTABLISHED 
59 Bee and not ginkse! curctu clu$v_shrimg] ! AND NOT FROM A SHAREABLE IMAGE 
en begin 
61 B29 allocluster (); ! GATHER P=SECTIONS 
085 ink$cluvirmem (.lnk$gl_curclu); ! ALLOCATE VIRT. MEMORY FOR CLUSTER | 


- Cr 


_LNK_VMALLO 
v06=000 


| 
| 
| 
| 
i 


o 
Sak 


o 
DONOUVSWN—-"OOW 


StaNouwsun—oe + 


G2oo oD 
wre 


AWA AAAAA AAA AWA ANNAN ANNA AAAI ANA 


SSSLESEALSLESEISAL 


401 


408 


3 


ye oF ot ot at ot ot at ot atm 
ee ee ee ed oe eed 
ODWNOAOVUEWN OO 


COOOCOCCOCOCOOOOOOOCOCOCOO 
02 09 09 Cd Cd CD CD 09 CD OP C9 C9 C2 CD CD COGS CD CD 
NNN NNN NOAA AAAOAOAOOun 
NOUS WN" OOOVNAO UE WOOO 


end; 


1 | 
1bese -1984 00:37: AX-11 Bliss-32 V4.0-74 Page 8 
132808= 138s 90720539 LINKER SRE LNKVMALLO.B32;1 “ (3) | 
end; 
end; 
! ALLOCATE BUFFER FOR DMT INFORMATION | 
if (lnk$gl_dmtbytes = .lnk$gl_omddst * dcm$c_size *. LnkSou peg dst * dgeSc_size) gtr 0 
then if nok (status = InkSreqiestmen ( ((.LnkSgl_dmtbytes Or 511)+1)/512,"Lnk$gl_dmtbuf fer?) | 
en begin 
signal 5 hea, 0, Lin$S_noimgfil); | 
ink$gl_ctlmsk C(nk$v_image] = false; | 
end; 
' 
! IF THIS IMAGE IS A BASED IMAGE, THEN ALLOCATE THE FIXUP SECTION 
i NOW, IF THERE ARE ANY SHAREABLE IMAGES LINKED IN ALSO, SO THAT WHEN THE 
: M IS ALLOCATED FOR THESE SHAREABLE IMAGES, THEY DON'T OVERMAP 
! THE FIXUP SECTI ALLOCATE VIRTUAL MEMORY FOR THE FIXUP SECTION 
' YET, SINCE WE DON'T KNOW THE EXTENT OF IT'S SIZE (DUE TO NOT KNOWING TH 
' NUMBER OF .ADDRESS FIXUPS YET TO BE FOUND), WE CAN ONLY SPECIFY IT'S 
BASE, AND THEN COMPUTE THE SIZE AT LNKSFLUSHIMG AFTER PASS 2. 
! WE CAN DO THIS IF THE IMAGE IS BASED, BECAUSE THE .ADDRESS FIXUPS ARE NOT 
DONE THEN. 
if not > inkSot ct laskt inkév_sysy 
and not .lnk$gl_ctlmsk( ink$v_shrJ 
and .defclubase 
then begin 
local fixisdhdr : ref blockC,bytel; 
ink$crefixisd(); 
fixisdhdr = Lnk$gl_fixisdlisl$t_hdrisd); 
if not Lnk$allovirmem(.fixisdhdrlisd$v_vpn]*9,.fixisdhdrlisd$w_pagcnt]) 
then begin 
signal(Lin$_confmem,3, _— : ‘ 
- fixisdhdrlisd$v ve? -fixisdhdrlisd$w_pagcent], 
cstring('FIXUP SECTION’), Lin$_noimgfil); 
ink$gl_ctlmsk Clnk$v_image] = false; 
end; 
oketghTintee Cisl$v_memalo] = true; ! FLAG MEMORY ALLOCATED 
end; 
| 
1 ' 
i IF IMAGE IS BASED, MAKE ONE MORE PASS DOWN THE LIST AND ALLOCATE VM 
FOR PIC SHAREABLE IMAGES | 
ink$gl_curclu = Lnk$gl_clulstC0); ! START AT TOP OF LIST 
if .defclubased ! IF DEFAULT CLUSTER IS BASED (BASE=) 
ard not pineSot ct laskE ink Sy sys? 
on white (ink$gl_turclu = .lnk$gl_curclulclu$l_nxtclu]) neq 0 ! GET NEXT CLUSTER DESCRIPTOR 
© begin 
if not .lnk$gl_curclulclu$v_based) ! IF BASE ADDRESS NOT YET ESTABLISHE | 
a. ond i k$gT_curclulclu$v_shrimg) ! AND A SHAREABLE IMAGE | 
en begin 
ink ec Luvirmem(. inkSgl_curclu); ' ALLOCATE VIRT. MEMORY FOR CLUSTER 
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end; 
IF LNKSGL_HIGHCLU IS 0, THEN THERE WERE PROBABLY NO OBJECT INPUT FILES, 
' ONLY SHAREABLE IMAGES. MAKE THE DEFAULT CLUSTER THE HIGHEST CLUSTER. 


Pe ee 


yoy highclu eql 0 
i? *UnkS gl defclulcluSl_fstfdbJ eql 0 ! JF IT HAS NO FILES IN IT 


if 
he 


then be 

Upegat l FSet deve uteld nxtclu] = Cyl et dete lus ! LINK IT ON THE END OF THE LIST 

if ( oe $9. defclu glust ata u ie lLastclu) eql 0 

k$gl_defclulé ust prevclu] = (nk$gl_clulst; 

inksgle lestels = lnk$gl_defclu; 
Lnk$allovirmem(O, 1 ' ALLOCATE FIRST PAGE 
ink$gl_highclu = “Inksot defclu; ! MAKE DEFAULT CLUSTER THE HIGHEST C 
ink $gl_ lLowclu = Lnk$gl_defclu; 


NOW CREATE THE FIXUP SECTION WITH THE ISD AS THE LAST ISECT IN THE IMAGE. 
ig -  apae ALL THE CLUSTERS AND DEFINE THE SYMBOLS IN THE FIXUP SECTION 


if (.Lnk$ L_fixisd eql 0) 
and . ‘not . Lnk$ t _ctlmskCink$v -3¥5) 
(.ink$gl_Shrelstrs neq 0 
— not .defclubased) 
or .lnk$gl octlmskC inkSv exe]) 
then ink$crefixisd(); 


CREATE SECTION ONLY IF NEEDED 
UNLESS EXECUTABLE, THEN ALWAYS CRE 


if .lnk$gl_tfrpsc ne ! IF A eae gh ADDRESS EXISTS 
then Lnk$gl_tfra _ = na pag gtrede + oe tfrpscCpsc$l_base); ' THEN RELOCATE IT 
-LnkSgt dbgtfps neq 0 and .[nk$ Sal dbgtfps ne ' IF A DEBUG TRANSFER ADDRESS (AND N 
hen \nk$gl_dbgtfr = .lnk$gl_dbgtfr + PinkSal. dbgtfps(psc$l_base]; |! RELOCATE IT AL 
rewares ! MEMORY ALLOCATION/RELOCATION COMPL 


: 
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end; ! OF ROUTINE. 
~-TITLE LNK_ VMALLO 
-IDENT \v0%-000\ 
-PSECT S$PLITS,NOWRT,NOEXE ,2 
09 00000 ome FORTE 


YT 9 3 

00001 -—BLKB 3 

0348 00004 EXE_ISGENTBL: 

-WORD 840 3 
0008 00006 -WORD 8 : 
0 0008 -BYTE QO 3 
1 oH -BYT 16 : 
OOOA BYTE ; 
sig BYTE 3 
oc BYTE ; 
te it WORD 40 : 
108 OOF «WORD 64 3 
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0 17A -BYTE 
038 178 «WORD a3 
49 170 «WORD 41 
04 17F -BYTE 4 
10 180 -BYTE 16 
0 181 «BYTE 9 
A 1 ¢ T 0 
8 1 BYTE 
o3? 1 WORD 73 
0349 1 WORD 41 
04 001 -BYTE 4 
if 4 9 BYTE 16 
18A -BYTE 0 
A 00188 -BYTE 10 
Q 0018C -BYTE 8 
ie 0180 «WORD 
00 018F -WORD 8 
FD 00191 BYTE <3 
oc 8138 BYTE 12 
00 0019 -BYTE 0 
Bf 0194 -BYTE 12 
0 00195 BYTE 0 
OD 00196 P.AAA: .BYTE 13 
4E 4F 49 54 43 45 53 20 50 55 58 49 46 00197 ASCII \FIXUP SECTION\ 
-PSECT SOWNS,NOEXE,2 
00000 DEFCLUBASED: ‘ 
00004 CURPSECT: 
-BLK 4 
00008 CURRENT DASE ‘ 
QOO0C ISECT_BASE: 
-BLKB 4 
80000000 00010 CNTRL_REG_ADDR: 
-LONG =2147483648 
00014 ISECT: .BLKB 1 
00015 NUMISECTS: 
-BLKB 1 
0001 -BLKB 2 
0001 septal “t . 
0001C PREVESECT:: A 
00020 ISCTDESC: 
-BLKB 4 
~PSECT $GLOBAL$,NOEXE,2 


00000 LNKSGL_DMTBUFFER: : 


-BLKB 
00008 LNKSGL_DATBYTES: 
0000C LNKSGL_LOWCLU: : 

-BLKB 
00010 LNKSGL_HIGHCLU: : 


Be Se Be Se Se Ge Se Se Ge Se Ge Be Ge Se Se Se Ge Se Ge Be Se Se Se Se 


i 


9 
8 


: 


: 


4 


G 


OFFC 
O° 9E 


t OE 


0 9% 


K 1 


1e-Sep-t 


Sep-1 
00014 LNKSGL_LS 
00018 LNKSGL_Fi 
0001C LNKSGL_1STGADR:: 
00020 LWKSGL_LASTGADR: 
00024 LNKSGW_SHRISCTS: 


BL 
TC 
BL 
XI 
-BL 


00038 -BLKB 
028 LNKSGL_MAPLST:: 
-BLKB 
0002C LNK$GW_STACK:: 
-BLKB 
Q002E LNKS$GW_NISECTS:: 
-BLKB 


C_$12Z 
KAPILLCHR== 
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48 
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LNK$GL~SHRSYMS 
LNK$GL~SHRCLSTRS 
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LNKSGC_SHRIMGS 
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LNK$GL_TFRADR 
LNK$GL -DBGTFPS, LNK$GL DBGTFR 

LNK K, LNK$ 


LNKSGL FV - CRE KE 
CRFESINSRTREF, LIBSINSERT TREE 
LNKSALLOBLK, LNK VIRAEM 
LNKSFINDVIRMEM, LNKSFNDPSCMSK 
LNKSREQUESTMEM, LINS_BASESY 
LINS_CLUBELBAS, LINS_CONFMEM 
LINS-INSVIRMEM, LINS”MEMFUL 


LINS"NOIMGFIL, LINS_STKOVFLO 
SCODES ,NOWRT 2 
LNKSVMALLO, Save R2,R3,R4,R5,R6,R7,R8,R9,~ 
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LNKSGL CURCLU, R 
#1, LNRSGL_CTLMSK, 1$ 

EXE_ISGENTBL, ISECTGENTB 

GXELISECTS, NUMISECTS 

i LNKSGL_CTLMSK, 2$ 

SY§_ISGENTBL, ISECTGENTBL 

SySTISECTS, NUMISECTS 

SHR_ISGENTBL, ISECTGENTBL 

SHR-ISECTS, NUMISECTS 

¥O,"#1, LNKSGL_DEFCLU+88, DEFCLUBASED 
LNKS$GL_LOWCL 

LNK$GL-CLULST, LNKS$GL_CURCLU 
LNK$GL~CURCLU 

(RO), CNKSGL_CURCLU 


19$ 
LNKSGL_CURCLU, R4 
é { SatRa 6$ 
BB(R4), 7$ 


#2, LNKSGL_CTLMSK+2 
76(R4), BASEADDRSYM 
", 88(R4), 13$ 

Ie BASEADDRSYM) . RO 
RO BASEADDRSYM, RO 
-5(RO) BASESYMSNE 
10(BASEADDRSYM), RO 
#-11 

RO, #2 

9$ 

4 (BASESYMSNB) 


HL INS BASESYM 
#3, LIBSSIGNAL 


(RO) 
$ 


#3, LNKSGL_CTLMSK, 10$ 
#1. LNKSGL-CTLMSK+3, 11$ 
wait, (BASEADDRSYM) , RO 
#511. RO, 76(R4) 


(BASEADDRSYH) » 76(R4) 
#3, LNKSGL_CTLMSK, 13 
LNKSGL_FVMCST, R1 
LNKSGC-CURCLU, RO 
6(RO)> 4(R1) 
DEFCLUBASED, 14$ 
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NK$GL_CURCLU, RO : 0813 : 
4C 28 4C 49 4 i9f Capt ; (ROD LNK$GL_DEFCLU+76 ; : 
vie 118 PUSHL — LNRSGL_DEFCLU*76 ; 0817 ; 
50 ” 4g ty 118 MOVL NK$GL-CURCLU, RO ; 0816 
5c OA BF 11 PUSHAB 92(RO) 
oe 1 a | : 
#LINS_CLUBELBAS ; : 
gg Oomnonons PE Se HEHE une cure Gas OH 
00000000V EF FB OO1CF 148: CALLS #0. ALLOCLUSTER i 0816 
2c BRB Sean ty. me HB] | 
0 © 02 FB 00130 CALLS #2, LNKSALLOVIRMEM : ; 
wonwere % 8 0144 BLBS = RO, ; : 
as G1 a oid; Bice ATT thks cris ons] | 
50 sabe 65 6180 OVL LNKS C_CURCLU, RO ; : 
5c 6AO OOF b135 PUSHAB 92(RO) ; 
mR BBS bet Benton | | 
coooonne Pe aries BR Fei cove : ; 
88 bb OO1eS 158:  USHL ENKSGLCURCLU ; 0831 ; 
00000000V EF 01 FB 00167 CALLS #1, LNKSSETLASTCLU tog ; 
00000000v_ EF i re O16E CALLS 4 L ; o783 
: #2, 88(R4), 18$ ; 
” ” 0 58 Ms E9 O17 19§: BLeC, aBiRd). 18$ ; 0836 
4 
00000000v_ EF my FB 0182 a, CALLS a. LNKSCLUVIRMEM ; a785 
52 000000006 00 00 O18¢ 19$: MOVL LNKSGL_MINVA, BASEADDRSYM : 0848 
ss ” 04 BD 00197 PUSHL #1. . : + 0846 
R -(SP) : 
000000006 00 09 rs 0198 CALS #2, LNKSALLOVIRMEM 
4 M, LNKSGL_MINVA > 0847 
o0mmn00s HF scooonons HH RISA cons ila AACR URES GNIN Bs 
50 65 D 188 Att MOVL LNK$GL~CURCLU 
65 60 0D 186 MOVE {R0), CNKSGL_CuRCLU 
50 6§ D 6B fovt NKSGL_C RCLU, RO ; 0853 
8 AO €E8 0018 BLBS (RO) 21 
EC 58 fo , 0 £ 1¢¢ BS 3 B(RO), 218 0854 
eatenenic ys BB OOtE PUSH,  LNKSOLCURCLUT” OBS? 
00000000v_ EF of FB 109 CALLS ap LNRSCLUVIRMEM pees 
: DST, R1 3; 0863 
51 000000006 5 00109 22$:  MULL3 #12, LNKSGL Qmop : ; 
FO Hi ieee i O1E8 ROvAD. an RO} raRSGl DMTBYTES ; 
30 15 OO1ED BLE _ 
E8 AD OF aiet PUSHAB LNK$GL_DMTBUFFER 
F C9 OO1F2 BISL3 #511, CNKSGL_DMTBYTES, RO 
” Pe aw Sonenere 4 be O1FB INCL = RO ; 


se  -eestee 


N 1 
16-Sep-1984 :37: AX-11 Bliss-32 V4.0-74 
12-808 - 1382 90:25:49 LINKER. SRCJLNKVMALLO.B32; 1 
7E 00000200 BF C7 OOT1F DIVL3 #512, RO, -(SP) 
000000006 : FB 4 CALLS : ine de QUESTMEM 
E ¢ BLBS STATUS. 
000000006 BF DD F PUSHL #LINS_NOIMGFIL 
D4 5 CLRL. = (SP) 
50 0D 0021 PUSHL STATUS 
68 FB 00219 CALLS #3, LIBSSIGNAL 
a3 1 BA 0021C BICB2 #1, LNKSGL_CTLMSK 
51 66 E 1f 23%: BBS #3, LNKSGL-CTLMSK, 25$ 
4D 66 02 € ; BBS #2, LNKSGL-CTLMSK, 25$ 
4A E BLBC DEF CLUBAS 
00000000V EF Fe 0 A CALLS #0, LNKSCREFIXISD 
52 9 ¢ 1 ADDL3 #24, LNK$GL_FIXISD, FIXISDHDR 
02 A2 3¢ 00235 MOVZ2WL 2(FIXISDHDRY, -(SP 
53 04 ag 1 ai 0239 EXTZV 40. #21, 4(FIXISDHDR), R3 
5 5 9 78 0 F ASHL #9, R3, R3 
3 DD 43 PUSHL R3 
000000006 00 0¢ 4 024 CALLS aoe NKSALLOVIRMEM 
iE EB 0024C BLBS 
000000006 BF DD 0024F PUSHL #LINS_NOIMGFIL 
0192 CA 9F 00255 PUSHAB P. 
7E A2 3C 00259 MOVZ2WL 2(FIXISDHDR), -(SP) 
53 DD 00250 PUSHL R 
0 DD 00 SF PUSHL # 
000000006 8F DD 00261 PUSHL #LINS_CONFMEM 
68 06 FB 00267 CALL #6, LIBSSIGNAL 
66 01 BA 0026A BICB2 #1, LNKS$GL_CTLMSK 
50 69 DO 0026D 24$: MOVL LNKSGL FIXTSD, RO 
16 AO 02 88 00270 BISB2 #2, 20TR 
65 000000006 09 3 00274 25$ MOVAB LNKSGL_CLULST, LNKS$GL_CURCLU 
23 67 €9 00278 BLBC DEFCLUBASED, 27 
1F 66 03 E0 90 7E BBS #3, LNKSGL_CTLMSK, 27$ 
28 65 00 00 He 268: MOVL LNKS$GL_CURTLU, R 
é 60 00 0028 MOVL (RO), CNKSGL_CURCLU 
17 13 00 88 BEQL 27$ 
50 65 DO 0028A MOVL LNKSGL_CURCLU, RO 
F1 58 AO €E8 0028D BLBS 8(RO); 26$ 
EC 58 A 08 E1 00291 BBC #2, 88(RO), 26$ 
DD 00 3% PUSHL RO 
00000000V_ EF 01 FB 029 CALLS #1, LNKSCLUVIRMEM 
E1 11 0029F BRB 6$ 
F8 AY DS OO2Al 27$:  =—*TSTL NKS$GL_HIGHCLU 
37 12 O02A4 BNEQ 
08 AB k 0 Ag TSTL LNKSGL_DEF CLU+8 
1F A BNEG 9$ 
50 000000006 09 p 0 MOVL §LNKS$GL_LASTCLU, RO 
60 : 028 MOVAB LNKSGL~DEFCLU, (RO) 
04 AB 0 p 8 MOVE R P LNRSGL_DEFCLU+4 
04 A8 000000006 09 4: Bg MOVAB LNKS$GL_CLULST, LNKSGL_DEFCLU+4 
000000006 0 E 002C 388: MOV LNKSGL“DEFCLU, LNKSGL“LASTCLU 
1 DD OOOCA 29$:  PUSHL #1 
D4 002CC CLRL. = (SP) 
000000006 00 02 FB 002C CALLS #2, LNKSALLOVIRMEM 
FB OAD 68 9E 0020 MOVAB LNKSGL_DEFCLU, LNKSGL_HIGHCLU 
Fo OAG 6 H D MOVAB LNKSGL“DEFCLU, LNKS$GL~LOWCLU 
69 D DD 30$:  TSTL LNKSGL7FIXISD 


SES e Se Se Se Ge Se Ha Ge Se Ge Ge Se Se Se Ge Se Se Se Fe Ge Se Se Ge Ge Ge Ge Se Se Se Ge Se Se Se Be Se Fe Fe Fe Se Se Ge Ge Fe Se Be Se Ge Se Se Ge Se Se Se Se Be Se 


] 
: 
LNK_VMALLO 16-Sep-19 4 00:37: AX-11 Bliss- P 0 
¥04=000 eee re ee PC ee Oe ert 3 
0B 6 O8 £6 oooes Bree BES nmseL CTLNSK. 318 : 0940 
000000006 D pS Ist LNKSGL SHRELSTRS ; 941 
04 a ED BLBC DEFCLUBASED, 32$ + 094 
? 66 1 €1 000FO 31$: BBC #1, LNKSGL_CTLMSK, 33 + 094 
00000000v EF F F4 3: CALLS #0, ENKS CREF IX1$0 + 0944 
0 000000006 p FB 33$: Ov LNKSGL_TFRPSC, RO + 0946 
000000006 00 18 AO C ADDL2 24(RO), LNKSGL_TFRADR 3 0947 
50 000000006 D 34$ MOVL LNKSGL_DBGTFPS; RO : 0948 
p 1 13 BEQL 5$ : 
01 D1 0031 CMPL RO #1 : 
08 13 00318 BEQL 35§ ; 
000000006 00 18 Ad CO 00314 ADDL2  24(RO), LNKSGL_DBGTFR + 0949 
04 00322 358: ET + 0951 


; Routine Size: 803 bytes, Routine Base: S$CODE$ + 0000 


2 | 
LNK_VMALLO 1b-s6 -1984 00:37: AX-11 Bliss-32 v4.0 Page 21) 
v04- 12-8 08-1 38s 90:25:49 LINKER.SRC LNKVMALLO. 5 2:1 . (4) | 
; 458 9326 1 routine allocluster : novalue = ‘ 
: 088 bese § best” | 
; 461 0955 ! THIS ROUTINE INDEXES DOWN THE I-SECTION GENERATION CONTROL F 
>; 46 0328 ' TABLE, CALLING THE I=SECT SPECIFIC ROUTINE. 3 
: ret oe ¥4 FIRST HOWEVER ESTABLISH THE BASE ADDRESS IF IT WAS SYMBOLIC ; 
; 465 0959 isect_base = .lnk$gl_curclulclu$l base): ! START AT BASE DETERMINED BY COMMAND 3 
; 466 0960 isctdesc = Lnk$ L_curclulclu$l_fstisdl; ! INITIALIZE TO LISTHEAD FOR ISECTIONS | ; 
; rod 348 prourenes = (nkSgl_curclutc luSt_fstisdi; : 
; 46 $3e8 incr iloop from 1 to .numisects do } suceenet THROUGH GENERATION $ 
: 470 0964 begin ' CONTROL TABLE $ 
; 471 0965 isect = ' REMEMBER INDEX : 
s 47 0966 4 it not (. “Unesot . Pb eee a sys ' UNLESS A SYSTEM IMAGE WITHOUT A HEADER : 
: 47 0967 4 and not inkSg _ctlmskC(ink$v_sysheadrJ) 2 
: 476 0968 then isect_base = (.isect base+511) and not 511; ' ROUND UP NEXT PAGE 3 
3; 475 0969 if .isectgentbIL.isect-i, isc$B_code] eql stack_code ! CALL THE BUILD ROUTINE BASED ON : 
; 476 0970 then stac isectbl id) ' THE KIND OF ISECT .. STACK 3 
: 4 ada 3 ifs else normal_isectbld(); ' AND ALL OTHERS 3 
: en 3 
; 479 097 if .isctdescCisl$l_nxtisd] eql -1 ' IF AN ALLOCATED ISD IS UNUSED 3 
; 480 0974 then begin 3 
; «481 0975 isctdesc = .lnk$gl_curclulclu$l_lstisd); ! THEN DISCONNECT IT FROM LIST : 
: 482 0976 isctdesclis($l nxtisd] = 0; 3 
; 483 0977 § : F 
; 484 0978 return; 3 
; 485 0979 1 end; , 
| © 
| 
003C 00000 ALLOCLUSTER: : 
~ WORD e R2,R3,R4,R5 ; 0952 é 
55 00000000G 00 9€E 00002 MOVAB ot €urRCLU, RS : ; 
54 00000000" EF 43 00009 MOVAB ISCTDESC, R4 : 
50 65 D BeOS MOVL NK$GL_CURCLU, RO : 0959 3 
EC A4 4¢ AO DO 0001 MOVL 6(RO), ISECT “BASE ; 3 
50 18 CO 00018 ADDL2 #24, RO : 0960 : 
64 28 it) Booie MOVL RO, ISCTDESC 3 é 
FC AG 5 0 0001 MOVL RO, PREVISECT ; 0961 3 
53 FS A& 9A 000 MOVZBL NUMISECTS, R3 3; 0963 3 
5 9° $8 CLRL ooP 3 3 
4 1 00 BRB 3 é 
FA AG 52 90 O0002A 1$: MOVB IL 00P {SECT : 0965 3 
08 00000000G 00 03 €1 QO02E BBC #3, LNKSGL_CTLMSK, 2$ : 0966 r 
12 000006006 00 1 €1 00 C 1, LNKSGL_CTLMSK+3, 3$ : 0967 3 
50 EC A4 QOOOOIFF 8F C1 : 2$ ADDL3 #511, ISECT BASE, RO > 0968 : 
EC AG 28 000001FF F 58 4 BICL 511, RO, ISECT_BASE : : 
0 F4 Ad 9A 00050 3S: MOVZBL ISECT, RO : 0969 | : 
20 09 C4 00054 MULL2 #9, RO ; : 
5 FB OAG £0 37 ADDL ISECTGENTBL RO ; : 
FD soa FBO 91 ; cMPB -5(RO), #253 : lj 
00000000V_ EF 6 f 6 CALLS #0, STACK_ISECTBLD 3 ; 
§ 5 $88 BRB 5$ : : 


| 
0970 | 
| 
| 
| 
| 


LNK_VMALLO b-$e 1 37: AX-11 Bliss-32 v4.0 Page 2 
042000 eet ee tt rR ae a el tt Cate PP oe 25 
,, 00000000v F 6B 4$: CALLS # NORMAL ECTBLD : 0971 
e 99 FS 2 ef: AOBLEQ ag: -{3 : O36} 
* CFFFFFFE 00 BA D 7 CMPL Bréctbese #1 + 0973 
A is 7 BNEQ : 
50 65 DO 0008 MOVL NKSGL_CURCLU + 0975 
64 1¢ AO DO 0008 MOVL 28 (RO) ISCTD best? : 
00 B4 04 00087 CLRL TDES st + 0976 
04 OO08A 6$: RET ; 0979 


; Routine Size: 139 bytes, Routine Base: S$CODE$S + 0323 


LNK_VMALLO 1b-sep-1984 00:37: AX=11 Bliss-32 V4.0-74 Page 23 
042000 ene e= ibe 93:20:48 ee iceR SAEs nevMAL Co BS251 ve 8 


] 
| 
| 
; 487 980 1 routine compare_bases (psectbase, currentnode, psectdesc) = 
: oes 03 1 begin . “ , | 
3 re 03 5 COMPARE PSECT BASE WITH BASE OF CURRENT NODE 
; 49 88 5 map | 
; 49 9 § currentnode : ref blogke ,bytel, 
> $94 09 psectdesc : ref blockl,byte); 
: 495 0988 
; £36 0989 local 
3 rd 443 pdesc : ref block(,byteJ; 
; 499 0994 pdesc = .currentnode(node$l_ptr ! GET POINTER TO PSECT DESCRIPTOR 
; 500 099 if -psectbase issu .pdesc(pscS$l_ _ 
; 501 0994 then return -1 
3 206 0995 else ae oo aa eql .pdesc(psc$l_base] 
s fo 0996 then 
; 504 0997 if space tans tenes a (rin ! BASES THE SAME...DOES CURRENT NODE EXTEND FARTHER? 
s 305 0998 issu 9 esclLpsc$l_Llength] 
; 506 0999 3 then return -1 
s Sor 1000 else return ch$compare(.psectdesc(psc$b_namlngJ,! IF THEY ARE E@UAL COMPARE THE NAMES 
3 eps 1001 psectd scCLpsc$t name), 
; 509 100 -pdesc(psc$b -namingd, 
3; 310 100 pdesc(psc$t_ name)); 
s Si 1004 3 end 
s Sie 1005 2 else return 1 
; 513 1006 1 end; 
001C 00000 COMPARE_BASES: 
-WORD Save R2,R3,R4 ; 0980 
50 08 AC DO 00002 MOVL CURRENTNODE, RO 3; 0992 
51 OA AO 00 00006 MOVL 10(RO), PDESC 3 
18 Al 04 AC 01 BRRA CMPL PSECTBASE, 24(PDESC) 3; 0993 
05 1€& QOOOF BGEQU. 1$ 3 
54 4 CE 00011 MNEGL #1, R4 ; 0995 
5 11 00014 BRB 6$ ; 
2D 12 B20 18 1$: BNEQ 4$ 3 
50 0c AC DO 0001 MOVL PSECTDESC, RO : 0997 
1c. AI 1¢ AO 01 0001C CMPL gB (RO), 28(PDESC) : 9998 
9? 1E 888 1 BGEQU & 2 
50 | & 3 MNEGL #1, RO ; 1000 | 
20 11 000 $ BRB 5$ 3 
53 sp AO 9A 00028 2$: MOVZBL 45(RO), R3 ; 
52 D Al 9A 0 MOVZBL 45(PDESC), R2 1003 
54 of 0 MOVL #1, R ; 100 
52 00 2—E Ad a 33 D 09 CMPCS R3, 46(RO), #0, R2, 46(PDESC) j 
3°#«4A tt BGTRU 3$ 3 
54 1 o9 SBWC #1, R4 : 
50 4 9 40 3$: MOVL R4, RO : 1000 
50 o% bd 90048 4$ orotate RO : 1005 
54 0 4 48 5$: MOVL RO, R4 ; 0995 


NK 
04 


<r 


rs 
voe=8oo- e-Sep-1obe 19:40:59 ENTER: SReSuAKVMALLO-692:1 a a 
50 54 0 00048 68: MOVL RA, RO 


; Routine Size: 79 bytes, Routine Base: S$CODES + O3AE 


1$-se0-1964 00:57:16 YaNet1 aLisg-32 ve-oc7eg, Page 28 


1 fous ene alloc_node (keyvalue, retadr, psectdesc) = 
begin 


ALLO 
00 


LNK_ 
V04= 


ALLOCATE A NODE AND POINT TO CURRENT PSECT DESCRIPTOR 


cal 
blockaddr : ref block(€,bytel; 


Lnx$allob acnegree ptrd = -blockaddr); 

blockaddr(Lnode$l -psectdesc; 
-retadr = .block Pe 

return true 

end; 


NOUS WN-“OOONOuM 


> —) > > > 5d ts a a 


leleleleleleleleleleolelala) 


2 OOO 


CONAOULS WH —OOO~ 


MPIPIPIPIPIPYIN 2 2 SS 


wee 


0000 00000 ALLOC_NODE: 
. WORD 


Be Pe ee Ge SH Ge Ge Oe Se Se Se Se Ge FH Se ee ee SH Se Se SH Se Seas 


0 Save nothing :; 1007 
5E Oe C2 00008 UBL #4, SP : 
E DD 44 PUSHL SP : 1015 
05 DD 00007 PUSHL #14 ; 
000000006 00 02 FB 00009 CALLS #2, LNKSALLOBLK 3 
50 6E 00 0001 MOVL BLOCKADDR, RO : 1016 
OA AO Oc AC DO 0001 MOVL PSECTDESC, 10(RO) 3 
08 BC 50 00 0001 MOVL RO, @RETADR : 1017 
50 01 00 0001C MOVL #1, R : 1018 
04 0001F RET : 1019 


; Routine Size: 32 bytes, Routine Base: $CODES + O3FD 


H 2 
vo4=000-— 1esep-19be 93: 


RW 


7: AX-11 Bliss-32 V4.0-7 Page 26 
O:39 — HEINKER SRESLRVMALLO. BS2:1 . B 


ng] ! POINT TO NAME BLOCK 
$c xdlén : blockl, by tel; 
- Unk Sg gurc tute Lug. shrimg vTF THIS IS SHAREABLE IMAGE 
of false; IT*S NOT RELOCATABLE ANYMORE 


symsnb = .symbol - symbols ymets namin 


; 9 1 9 1 routine relocluster : novalue = 

BR 1B) g Beste - | 
; ¢ 1 4 i THIS ROUTINE RELOCATES THE CONTENTS OF THE CURRENT CLUSTER. THIS MEANS 
; 1024 i GOING DOWN EACH OF THE I-SECTION AND P-SECTION LISTS AND ADDING 

3 1025 i THE CELeTeR BASE TO THEIR BASES. IN ADDITION, FOR EACH P-SECTION 

3 5 1 § i THE LIST OF SYMBOLS IS SCANNED AND THOSE THAT ARE RELOCATABLE ARE 

3 1 i ALSO RELOCATED BY THE CLUSTER BASE ADDRESS. IN THE PROCESS OF DOING THIS 

3 1 § i EACH P-SECTION DESCRIPTOR IS REMOVE FROM THE CLUSTER LIST AND PUT 

: 8 1 i ON THE MAPPING LIST IN VIRTUAL ADDRESS ORDER FOR LATER MAP 

3 ig 19 ? OUTPUT. 

: 41 1 § i IF THE CURRENT CLUSTER HAS ALREADY BEEN BASED, HOWEVER, THE 

: 206 10 i RELOCATION 1s NOT DONE = THE P=SECTIONS ARE MERELY MOVED TO THE 

; 544 18 ; MAPPING LiST 

3; 545 1036 routine relocpsects (psectdesc) = 

: 546 1037 begin 

: 547 1038 ! 

; 548 1039 i THIS corAt ROUTI a4 where TES THE PSECTS ON THE SPECIFIED PSECT 

: 549 1040 i LIST AND TRANSFERS THEM TO THE MAPPING LIST. 

; 550 1041 i 

3 5391 1066 map 

3 226 104 psectdesc : ref block(C,byte); 

’ 1044 

; 554 1045 Local 

3 599 eg blockaddr, 

: 556 1047 symsnb : ref block{,bytel, 

3 Sor 1048 symbol : ref blockC.byted: 

; 558 1049 

; 559 1050 if .psectdesc ea! 0 

; 560 1051 then return true; 

3 636 1936 if spaectdesctpscds left) neq 0 

; 206 105 hen relocpsects(. psectdesc psc$l_left]); 

: 56 1084 3 if not spoectdese pscév, deleted ! IF PSECT 1S NOT DELETED 

: 564 1055 4 and peed tes psc SL {Tages and ! IF P-SECTION ALLOCATED TO MEMORY 
3; 565 1056 4 or (.psectdesc(psc$w Tags and (gps$m_lib or gps$m_gbl)) neq 0 ' OR IS GLOBAL P. In SHAREABLE 
: 566 1057 4 or .ink$gl_ctlmsk inRaves ' OR A SHAREABLE 0 

; 567 1058 4 or .lnk$gl-ctlmsk(Lnk$v_ ~Sbg ' DEBUGGABLE IMAGE 

; 568 1059 4 or .lnk$gl-ctimskCink$v_symtbL]) ! OR CREATING A SYMBOL TABLE 

3 298 1060 4 then begin” 

; 570 1061 4 if .psectdesc(psc$v_rel] ' AND THIS P-SECTION IS RELOCATABLE 
> Sr 1936 4 and not .lnk$gl-curclulclusv qbaged) AND CLUSTER IS NOT BASED 

: 238 199 5 (, ink$gl_curclule Lu$v 5§nt Tmg) and - LokSo} Yer pied) 

: 7 1064 4 ay psectdesc(psc$l “base jPsectdescl Ps cst 

: 574 1065 4 ink$gl_curclulclO$l_base); ' ADD CLUSTER BASE TO ITS BASE 
rs S75 1066 4 syapol = sectdese(pacSl_ symisti; i GO DOWN LIST OF 

; 276 1067 4 ile .symbol neq 0 i SYMBOLS OWNED BY 

3 Of 1068 do begin ! P-SECTION ue ADD ITS 

; 278 198? if “ORC UNSC 

3 79 1070 : KSGL ebReuccLUsy _SHRIMG) AND .LNKSGL _CURCLUCCLUSV _PICI) 

: 580 1071 6 then begin ! ARE-RELOCATABLE 

3 2B) 1 § 6 Sind 

; «58 1 6 

: 27 1074 6 

3 1075 6 

3; 3 1076 6 


SNS 


oo 
w 


sym$v_rel 


| 

| 

i BASE TO ANY THAT | 

| 

| 

thet sym | 
} 

| 


ae tea a TE Tn A Ey Me re 


a a 


LNK_VMALLO 1b-se $ep-1984 00:37: AX-11 Bliss-32 V4.0-74 P 7 
y0c= 000 300-1 oh ? 20:49 LINKER. SRCJLNKVMALLO.B52;1 0 3 


H 1077 6 bol ! f Y - 

e) ! 78 é # eyes r) aber 3% Posts . -gmbotts aSt off IF SYMBOL WAS IN PIC, NON-BASED IM 
3 107 nial vel Lust. base] 

; 589 1080 6 else symbolCsym$l_value] = teat sym$l 

; 590 1081 6 + npsectdescLpscdt base]; 

: 591 1 ; ‘ if - Unk$gl- crlapeCloksy long] ' TF A LONG FORM MAP IS REQUIRED 

: 238 108% oe fF [nveymbot svagy-tupres - THE SYMBOL [$ NOT SUPPRESSED. 
; 34 1085 5 * and not symbol Esym$v~Lclsym i AND IT'S NOT A LOCAL SYMBOL 

: 38 1089 7 "er Hbinsrtkey<inkse sSyebl ime. f -synsnbCenbsb_ namingJ, 

s 39 ti 7 ayes fyast _va 

: 598 1089 7 ymbolLsym$w Ts, 

; 599 1090 7 ertSinertr fitnksal valct(tb, ! THEN INSERT THIS SYMBOL 

; 600 1091 7 symbo a t_vatus synsnbCsnb$b_ naming], ! AS A REFERENCE TO ITS 

3 ret 1098 cunt geet yet flags) OWN VALUE RELOCATED 

: 60 1094 end; ¢ 

; ORE 944 syebel s «symbol Csym$l_psclst); ! MOVE ON TO NEXT 

5 606 1097 4 fiodinsert ssilaa oes. > _maplst,.psectdesc(psc$l_base],%ref(1), ! INSERT NODE INTO V 

; 607 1098 4 compare_bases, alloc_node, blockaddr.. psectdesc): ! ORDERED TREE UPSECT MAPPING LIST) 
; 608 1099 4 1" (IF ABS, SUPRESSED IN MAP, BUT NEE 
; 609 1100 4 welt: i IN LIST FOR SYMBOL TABLE FILE UTP 
i gi) 1108 if td C $l_right] 0 ' PROCESS RIGHT SUBTREE IF PRESENT 

3 sectdesc(psc$l_r ne ! U N 

5 eis 11be ‘Sion relecmeectht, BsectdesctpscSl_ right]); 

5 615 1106 3 return true 

; 616 1107 2 end; ' OF RELOCPSECTS 


O1FC 00000 RELOCPSECTS: 
WORD 


, e R2,R3,R4,R5,R6,R7.RB : 1036 
58 FB OAF «SE 00002 MOVAB OcPSECTS. RB ; 
57 000000006 00 9€ 00006 MOVAB tak AK SEL “CURCLU, R7 : 
6 000000006 00 9E 00000 MOV LNK$GL~ ~CTUMSK. Rb ; 
E 8 C2 00014 SUBL2 #8, SP ; 
04 AC DO 00017 MOVL  PSECTDESC, R3 : 1050 
0 } O18 BNEQ =«:*1$ : 
OOEF 1 BRW 16$ : 
6 D3 0 1$ TSTL — (R3) + 1052 
0 BEQL 2% : 
bd PUSHL  (R3) > 1053 
68 1 FB $ CALLS i, RELOCPSECTS : 
03 0B OA 5 33 BBC #6. 11(R3), 4$ > 1054 
0003 31 f $ BRW 15§ ; 
20 ad D 4$ TSTL 3 (R3) > 1055 
13 1 BNEO : 
12 OA ad 9 BITB  10(R3), #18 + 1056 
9 66 03 H ¢ ee BS treme _CTLMSK, 5$ : 1057 
88 66 E ib BBS ne LNKSGL~CTLMSK. 5$ : 1058 


— ee ’ 


rhs aa 1b-se ge0- 138% 90:77 ‘18 AX-11 Bliss-32 V4.0-74 Page 3 


-Sep-1 LINKER. SRCJLNKVMALLO.B32;1 
‘et E1 00044 BBC NKs CTLMSK+1, 3$ : 1059 
% oh BS 1 Goes ss: BRE a8: NOUR : 1861 
bp 58 ag E Btac OB S- ; 
D 6$ MOVL —§ LNK$GLCURCLU, RO + 1063 
9p 58 A BBC iG. TRO), 8$ : 
8 A E1 BBC #3. 88(RO). 8S ; 
5 67 D 7$: MOVL Links LCURELY RO + 1065 
18 «OA 4c AO OC ADDL2 6(R y7 24(R35 : 
5 146 As OD A gs OVL é (R3), SYMBOL + 106 
72 1 $ BEQL 4$ + 106 
55 OA A oF MOVAB 1 (SYMBOL) + 1069 
64 é 0 3 7 C e 138° : 
9 OF A2 9A 00078 NOV ZBL 1 isymBot), RO + 1073 
50 5 c3 43 UBL3 RO, SYMBOL. R : 
4 FBO ’ 0 8 MOVAB =5(RO), + 1074 
0 DO 000 MOVL LNKSGL CURCLU, RO + 1075 
03 58 a0 3 Fi 0087 BC , BBTRO), 108 : 
6 A 0008C BI1CB2 (R95) + 1076 
08 65 0 E1 QOO8F 10$: BBC wid + 1077 
62 10 A2 4C AO C1 00093 ADDL3 recho), 1 SyRBOL), (SYMBOL) + 1079 
04 11 00099 BRB $$ + 1078 
$2 18 A3 CO 0009B 11$:  ADDL2 24(R3), (SYMBOL) + 1081 
9 01 Ad £9 0009F 12$:  BLBC  LNKSGL CTLMSK+1, 13$ + 108 
34 0c ae or E1 0043 BBC 1, 1 TS YMBOL , 138 : 108 
0 6 p EQ OO0AB BBS wis, (R5), 1 + 1084 
eC 01 A E OOAC BLBS =s-—«wa (R85), -:138 + 1085 
E 5 3c 9080 MOVZWL (RS), =(SP) + 1089 
2 DD 0008 PUSHL SYMBOL : 1088 
04 AG 9F 00085 PUSHAB 4(R4) + 1087 
000000006 00 9F 000B8 PUSHAB LNKSAL_SYTBLFMT : 
000000006 00 4 FB 000B CALLS #4, CRFSINSRTKEY : 1088 
E 4 000C CLRL = > 1091 
7E 65 3¢ 000C MOVZWL (R5), =(SP) + 1092 
04 Ad 9F OOOCA PUSHAB i : 1097 
52 DD 000CD PUSHL SYMB : 
000000006 0 9F OOOCF PUSHAB tNKSAL VALCTLTB + 1090 
000000006 99 FB 0005 CALLS CRFSINSRTREF + 1091 
04 A2 pg p 13$: HOVL €i SYMBOL) SYMBOL ; 1095 
a pp of 14$:  PUSHL + 1098 
08 AE 9F O00E PUSHAB BLOCKADDR + 1097 
f AS 9F OO0E7 PUSHAB : 
1 ABS 9F OOOEA PUSHAB are BASES : 
10 AE 01 00 O00ED MOVL 16(SP) : 
1 AE F OOOF1 PUSHAB : 
18 A3 DD 000F4 PUSHL ols ; 
00000000: ai F OOOF7 PUSHAB LNK$GL_MAPLST ; 
000000006 00 7 F FD CALLS 4&7 tl IBSINSERT. TREE ; 
04 As : 194 15$: ist 4(R3) : 1103 
04 8 Dd 001 PUSHL  4(R3) > 1104 
$5 81 00 tm wa wee 1106 
112 RET : 1107 


; Routine Size: 275 bytes, Routine Base: S$CODE$ + 041D 


1E$S0e13RE Q0IREN) UNGAR Wits So, ow 


; rae 119 Repeat BODY OF RELOCLUSTER 

: 815 111 

: St 1112 8 if not .tnkSgl_curctutclusv.shring] 

3 not .in curclule shrim 

: 688 1118 § then’s efin ’ ait teeohe 

3; 6 1114 4 if « Lnk$gt highclu egl 0 HIGHEST CLUSTER 

> 624 1115 4 fet caucus base] gtru, ginksal. pighelutclust,, based) OR THIS IS NEW HIGHEST 
; 625 1118 3 then Link Tnk$gl_curc MAKE IT NEW HIGHEST CLUSTER 
3 ° $ 1117 4 if (. Lnkéat (oud lu 0 O LOWEST CLUSTER 

3 1116 4 or .\nk 9 curcty clu$l_base] Lssu .lnk$gl_lowclulclu$l “hehalt ! OR THIS ONE IS LOWER 

; 628 1119 then ink$gl_lowclu = .lAk$gl_curclu; 

: 8% 1131 sete 

; ? 1 1% ¢ RELOCATE THE PSECTS IN THIS CLUSTER 

; o38 1% 2 lstdagatenet ink$gl_curclulclu$l_lpslst]); 

: 635 11 $ return true 

; 636 1127 1 end; ! OF RELOCLUSTER 


0004 00000 RELOCLUSTER: 
WORD 


° Save R2 1020 
000 MOVAB LNKSL -HIGHCLU, R2 


52 00000000" EF 9E ; 
a ‘ 36 000000006 69 00 0000 MOVL NK$GL~CURCLU, RO + 1112 
51 63 00 $0015 MOVL LNKSGL_HIGHCLU, R1 + 1114 

07 1 00018 BEQL : 
4c Al 4C AO 01 OOO1A CMPL  76(RO), 76(R1) > 1115 

3 1B OOO1F BLEQU 2$ : 
62 0 pO 00021 18: MOVL RO, LNKS$GL_HIGHCLU > 1116 
51 FC A 00 0024 2$: MOVL NKSGL LOweLu, R1 3 1117 

07 13 00028 BEAL : 
4c Al 4C Ad 01 9 A CHPL 6(RO), 76(R1) : 1118 
FC OA 59 D6 0 1 3$: MOVL RO, LNKSGL_LOWCLU > 1119 
10 AO DD i$: PUSHL > 1124 

FEBO CF 01 FB 0 CALLS #1, RELOCPSECTS ; 
0 D RE > 1127 


62 bytes, Routine Base: S$CODE$ + 0530 


3; Routine Size: 
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; 6 i} $ 1 Gon al routine ink$crefixisd = 

i 64 11 

4 gr8 11 ° i THIS pou tee CREATES THE FIXUP IMAGE SECTION AT THE END OF THE HIGHEST 

; ee 1} ¢ USER CLUSTER 

4 R 
; 644 1134 3 
3; 645 1135 local 

3 ete 11 $ lLastisd : ref bhockl bytel. 

: 64 11 lasthdrisd : ref oe sbytel. 

; 648 11 stackisd : ref block ebyte ’ 

; 649 11 symbol block : ref MAAS byte), 

3 e29 114 bye olsnb : ref b Leck byte ‘ 

3 $2) 1323 oye se : ref block bytel, 

3 xadr, 

3 re 1108 savecurc 

5 $28 1iee tempisd : Me LockList$e _sizet+isd$c_maxlenglbl,bytel; 

; high lu$l_lstisd); ' POINT TO LAST ISD IN CLUSTER 

: 636 149 Prem ts Praha Hs . age “ : ' POINT TO PART OF LAST ISD BOUND FO 
; O28 1323 aes Lastiee eal Lnk$gl_ nighe Lute tut. fstisd] ! IF CLUSTER HAS NO IMAGE SECTIONS 

; $0 1150 ‘ on PSFict co, isl$c_size+isd$c tere} eae ,tempisd); ' ZERO jemmgneny psect 

; 661 1151 lasthdrisd = tempisdlisl$t_hdris ' USE IT FOR THE PAGE COUNT 

3 666 1136 | alleen pagcnt) ="1; ! SET ONE PAGE (SO FIXUP SECTION NOT 
: ‘ i kL tack ' IF THE LAST geeilon 1S NOT A STACK 
Bh ae Hs BF -Lesiog toate, tne ove Soon ree | Helhed ft 

3 1128 se ,beeie 

; isd = .lastisdlisl$l_previsd); ! POINT TO ONE JUST BEFORE STACK ISD 
; i 1158 Lasthdr isd = lastisdtisiSt. hdrisdi; ! AND IT'S HEADER PAR 

; : ' SAVE CURRENT CLUSTER ot hdd PO 
: 60 1164 savecurclu = cr takS al ht ghc Lu ' MAKE HIGHEST CLUSTER THE CURRENT C 
: 67 116 § isec _Base = fixadr = rtadthdr|sdtisdsy _vp ' SET BASE OF ISECT WE WILL CREATE 

; 67 1188 (tas tRdrisdCisdsw ~pagent]*512); 

: 674 1164 if .isect 44 ot 0 = %x'200': ane IS 0, MAKE IT X*200', THIS 
; 675 1165 then ! 

: lecisas $e siz ,isctdesc) i ALLOCATE ISECT DESCRIPTOR 

: ere 1187 cagatten a fs “sia sdLisl l santisd) = -isctdesc; ' LINK INTO ISD LIST AND REMEMBER DE 
; 678 1168 PRSgt. sdiaskt inkivesh shr ! SET THE he tt ++ INTO ISGENTB 
: 679 1169 then isect = i (IF A SHAREABLE IMA 

: 680 1190 else isect = 83 i (IF AN EXECU TABLE IMA be) 

| HELE _BERLERSSRCC ce RRELRE singsvaye tntsot_shrsynset eg FEET Pan CEB ABS CoRR 198 
° #2)¢ s+1)* 

eB 1178 oflatsdecect. takSgl shrimgs nk$gl_s royese)) *tangtheS11)/512): 

: 1174 if sopock (ed neq 0 

3 5 1175 then 

; 6 117 A + isl$l_nxtisd] = .stackisd; ' PUT STACK ISD BACK IN IF IT WAS TH 
: 68 1107 ptpexiee ists epost tg? = ,isctdesc; 

; 688 1178 Unk Sgt. curcluCelu$l_lstisd) = .stackisd; 

: ' POINT TO PART IN HEADER 

: oor i feoer . a eae Se i Hs i POINT TO START OF FIXUP AREA (SKIP 
; 69 11 ' 

: i P THROUGH ALL THE CLUSTERS, AND FOR EACH CLUSTER THAT HAS SYMBOLS 

: th i : WAY rhe suk LST, REDEFINE THE SYMBOL Al THE PROPER LOCATION IN THE FIXUP 


m 2 
$-800- 1382 90:37:48 AX-11 Blisg-32 V4.0-74 Page (ay 


LINK_VMALLO 
y0e2000 4 LINKER. SRCJLNKVMALLO.B32;1 


a 


5 ‘ 5 1} 5 } AREA, 5 
3 244 i} ink$gl_curclu = ink$gi_clulstC0); ! START AT TOP OF CLUSTER LIST : 
; 699 11 § if  ink$ol shrs ms neq 0 ; 
3 1190 then while (link$gl_curclu = pinkSel curciulclusl natelud) neq 0 ; 
; Ay 1333 BY -lnk$glcurctu cluSl_shrsyms] neq 0 ! IF THIS CLUSTER HAS SHAREABLE IMAG ; 
; 70 1138 f shar = .fixadr + 8; ' LEAVE ROOM FOR # OF REFS, AND SHR é 
: re 1194 syapet block = jUnkSgl curcluCelust_shrlstd; i NOW RUN THROUGH ALL THE SYMBOLS 3 
3 5 133? i ¥ Ne jsymbolblock neq F 
5 o begin 3 
3 707 1197 ? syabotsnd = ,symbolblock - abymbolblockisyate nosing? “ ! POINT TO NAME BLOCK PART 3 
; -"snb$c_fxdlen; 3 
; 709 1199 4 symbolblock(sym$l_offset) = .symbolblock(sym$l_valueJ; ! SAVE OFFSET 3 
: 710 1200 4 symbolblock(sym$l_value] = .fixadr; ! DEFINE SYMBOL TO BE HERE INSTEAD ; 
3; 71) 1201 4 fixadr = .fixadr + 4; ' NEXT § : 
; re 1 0¢ 4 symbolblock = .symbolblockCsym$l_shrinkJ; i AND LINK TO NEXT ; 
os 120 end; 3 
; 7146 1204 end; 3 
: 715 1205 $ 
; rig 1 Be ink$gl_Istgadr = .fixadr+4; ; 
; 71 1207 2 ink$gl-lastgadr = .fixadr+d; ; 
3 r8 : 4 ink$gl_curclu = .savecurclu; ! RESTORE CURRENT CLUSTER : 
3 rs9 1210 return true 3 
s Vel 1211 1 end; : 
OFFC 00000 -ENTRY LAS CREE ITSO. Save R2,R3,R4,R5,R6,R7,R8,- =; 1128 : 
58 £000 00006 00 9E 00002 MOVAB LNKS$GL_CURCLU, R11 3 : 
5A 00000000' EF 9E 00009 MOVAB ISCTDESC, R10 3 3 
2f Ae AE 9E 00010 MOVAB -88(SP), SP 3 : 
: 00000000" EF 00 00014 MOVL LiKs L_HIGHCLU, R8 3: 1146 3 
9 1¢ AB DO 0001B MOVL 8(R8), STACKISD ; ; 
37 59 OO1F MOVL STACKISD, LASTISD ; F 
6 \8 A? 9E 022 MOVAB 4(R7), LASTHDRISD 3 1147 é 
50 1 ag ; 0026 MOVAB 24(R8), RO 3; 1148 
50 57 D A CMPL LASTISH, RO ; 
i8 je D BNEQ ; 3 
6€ Pt C F MOVCS #0, (SP), #0, #88, TEMPISD : 1150 
56 18 AE 9 § MOVAB TEMPISD+24, LASTHDRISD 3; 1151 
A6 01 8 8 MOVW #i (LASTHDRISD) : 1182 
br 0B Ab F 1$: cM 11(LASTHDRISD), #253 > 1154 
4 1 44 BEQL 2$ 3 
9 » rt CLRL a, ACkiee 3: 1155 
: 1 4 BRB § 3 
7 046 =A ge 4A 2%: MOVL Sab AST ISD) LASTISD : W132 
é 18 «A? 4 MOVAB 24(R7), LAST D : 1158 
68 1) 3$: MOVL LNK$GL_CURCLU, SAVECURCLU : 1160 
$8 D MOVL Re LNR of CURCLU ; 1161 
00 EF EXTZvV #0, #23, 4TLASTHDRISD), RO : 1162 
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; Routine Size: 324 bytes, Routine Base: $CODE$ + 056E 


j 
LT 


LM -YRALLO 1-52 -Sep-1984 2 37:16 age Bliss-32 V Page Fa 


14-Sep-1984 LINKER. SRC Lieviaceo. " 2;1 
; z 3 i 1 global routine Lnk$cluvirmem (clusterdesc) 
: 725 1214 a 
; 726 1215 { THIS ROUTINE ALLOCATES VIRTUAL MEMORY FOR A CLUSTER 
s fer 1 18 ! IF THE MEMORY CANNOT BE ALLOCATED THE IMAGE PRODUCTION IS 
: f g : i DISABLED. 
: fi 1219 | INPUTS: | 
; 7 ¢ 1381 i CLUSTERDESC A POINTER TO THE CLUSTER DESCRIPTOR FOR CLUSTER TO 
: it}, : $§ BE ALLOCATED 
: £35 HE i QUTPUTS: | 
: 737 1226 i VIRTUAL MEMORY ALLOCATED. CCLUSL_BASE] IN THE CLUSTER DESCRIPTOR 
; ree \sse § SET TO VA OF ALLOCATED MEMORY. | 
: 740 1289 | 
> 741 1230 2 map 
3 ty § clusterdesc : ref block(,byte); 
: 744 1538 Local 
3; 745 1234 savecluster, 
; me 1$32 status; 
: 748 1237 4 if not (status = (if not -clusterdesc{c luSv_ based] ! IF THIS CLUSTER NOT BASED 
; 749 1238 4! AND .LNKS$GL CTLMSKCLNKSV_ SHR) ! a WE ARE PRODUCING A SHAREABLE IMAGE 
: 750 1239 4 and .defclubased ! THAT IS BASED 
3; 751 1240 4 then Lnk$findvirmem(clusterdesc(clu$l base], ! THEN FIND THE VIRTUAL MEMORY 
. FS 1241 4 .clusterdesc(¢lu$l pages) 
> 1stg 4 . Lnk$gl_defclulclu$ ased) ! wr INSIST THAT IT Hy ABOVE THE BASE= BASE | 
: 754 1243 4 else if .clusterdesc(clu$v_based) ! IF THIS peusten. lg ASED 
; 755 1244 4 then Lnk$allovirmem(. stusterdes Cclu$l base], .clusterdesc(clust apes. 
; 756 1245 4 else Lnk$findvirmem(clusterdesc(clu$l_ Basel, ATTE TO” FIND ENOUGH MEMORY 
: ete seg 3 seen tenia .clusterdesc(clu$l_pagesJ))) POR. CLUSTER. RETURNING BASE ADDRESS | 
3 en 
; 759 1248 signal (Lins. inputenen 2. ! BUT ISSUE ERROR F INSUFFICIENT | 
; 760 1249 usterdesc(clu$l sf2ges). -clusterdescCclusb namin A a getnarttns 
; 61 1690 LnkSgl. ctUmsiEtnedy image] = fa DISABLE IMAGE O 
: 76 1258 if -clusterdescCe LuSy- shrimg) 
3; 764 125 then clusterdesc(tlu$v_based] = true; ' IT'S BASED NOW 
; 765 1254 isctdesc = clusterd seCe lust fstisd); ' INITIALIZE TO LISTHEAD FOR ISECTIONS 
: 708 1$2? if (if .clusterdesc(clu$v_s hr jag 
: 76 1256 then .clusterdesclclu$v_p 
3; 768 1257 else not po ra ee te Nd based)) 
3 19? 1528 ay while (isctdesc = .isctdescCis($l_nxtisd]) neq 0 ' GET NEXT ISD IN LIST 
s © begin 
Tee 64 1260 nd 
g 46 1$0) hdrisd = isctdesclCisl$t_hdrisd] : blockC, byte]; ! POINT TO HEADER PART 
: 774 1 $¢ if not .hdrisdlisd$v_p1] ' IF NOT CONTROL REGION 
s 775 1264 then hdrisdlisd$v_ v.vpg] = ,hdrisdlisd$v 31892 ¢ ' ADD THE Shuster BASE PAGE 
3: 776 1265 usterdescLclusl _baSe -9);! TO I-SECTION PAGE NUMBER 
s 777 1 4] if .clusterdesc clusy: shrim ' IF SHAREABLE IMAG 
; re tt a then hdrisdlisd$v_ “based = true; i FLAG SECTION AS BASED 
; end; 


> 3 | 
LK _VMALLO 16-Sep-1986 00:37: AX-11 Bliss-32 v4.0-76 » 5 
y04=000 1ereeat 3B 98:20:48 = He incen saesineviacro 6$2;1 oor 33 | 


| 


; 780 1 $9 ' 

3 f 1 : ty SEE IF LAST CLUSTER 

: f 5 : a ink$setlastclu(.clusterdesc); 

: 785 1274 2 | RELOCATE CONTENTS OF CLUSTER 

; 786 1275 ' 

: 787 1 £6 if (if .clusterdesc(clu$Sv_shrimg] 

; 788 127 then .clusterdesclclu$v_pic] 
; 789 1278 else not .clusterdesc(cTu$v_based]) 
: 790 1279 then begin 
, ry 1 BO savecluster = .lnk$gl_curclu; 

; 79 1281 nk$gl_curclu = .clusterdesc; 

:; 79 1 B¢ relocluster(); 

: 794 128 nk$gl_curclu = .savecluster; 

; 795 1284 end; 

: 796 1285 

s 97 1286 return .status 

; 798 1287 1 end; 


| 
03FC 00000 .ENTRY LNKSCLUVIRMEM, Save R2,R3,R4,R5,R6,R7,RB,R9 ; 1212 
59 000000006 00 9€ 9000¢ MOVAB  LNKSFINDVIRMEM, R9 : 
58 000000006 00 9€ 0000 MOVAB LNK$GL_CURCLU, R8 : 
57 00000000' EF 9€ 90010 MOVAB  ISCTDESC, R : 
52 04 AC 00 00017 MOVL CLUSTERDESC, R2 + 1237 
54 8 A2 3 00018 MOVAB §88(R2), R& : 
18 64 £8 OOOIF BLBS (R4), 3$ : 
11 EO a7 €9 00022 BLBC = DEFCLUBASED, 1 : 1239 
000000006 00 DD 00026 PUSHL LNKSGL_DEFCLU+76 + 1262 
50 A2 DD 000ec PUSHL  §0(R + 1241 
4c Ad OOF 900 F PUSHAB G(R ) + 1240 
69 03 FB 000 : CALLS #3, LNKSFINDVIRMEM : 
19 11 000 BRB 43 : 
0D 64 £9 00037 1$: BLBC (R4), 3$ t 1243 
7E 4C A2 7D OOO3A 28: MOVO 76(R2), =(SP) t 1244 
000000006 00 02 FB 00055 CALLS #2, LNKSALLOVIRMEM : 
09 11 0004 BRB : 
50 A2 DD 00047 38: PUSHL 80(R2) > 1246 
4C Ad 9F 000A PUSHAB 76(R2) > 1245 
69 : F 90040 CALLS #2, LNKSF INDVIRMEM : 
85 D 030 4$: MOVL RO, STATUS : 
22 55 £8 0005 BLBS STATUS, 5$ + 1237 
000000006 &F BD 0056 PUSHL #LINS_NOIMGFIL + 1249 
SC 0 A2OOF 3¢ PUSHAB 92(R2) : 
50 «Ad «OOD 00 F PUSHL  80(R2) : 
DD 00062 PUSHL # ; 
000000006 8F DD 00064 PUSHL aL INS INSVIRMEM : 
000000006 00 5 FB O06, CALLS #5, LYBSSIGNAL : 
000000006 00 1 BA 1 BICB2 #1. LNKSGL_CTLMSK : 1 5 
3 64 0¢ 1 00078 5$: BBC #2. (R4), 6S : 1 
e% 18 «OA 4 as 6$ es sitron Is TDESC : 1 34 
06 64 05 i 8085 BBC #2, (R4), S : 1255 
| 


LNK _VMALLO 
v04=-000 


56 
AO 


; 799 


; Routine Size: 


38 


04 


o- ru 
on OWN 


06 
13 


235 bytes, 


1288 1 


64 
a 
1 
67 
2 
0 
06 Ad 
4C A 
1 
56 
00 
64 
09 =8=AO0 
00000000V_ EF 
64 
64 
OE 
54 
68 
FD9A CF 
68 
50 
Routine Base: 


18 
F7 


nO OM mmn no Cm mom oC -Vc UOMmM—m 


VIMNOVIA AOC QCOVMMODWO F SOME AASOO 
og 
OOWDOCOO] |] - DO - @ - CO *WBOoOmMmowoonon—-— 


MEO WWIN —NOMNAWO MN NID AS NE 


04 
SCODES + 0682 


te 


Sep-1 
~Sep-1 


Be 12:40 


| 


18 AX-11 Bliss-32 v4.0 Page 56 
LINKER. SRCJLNKVMALLO. 5 2:1 ( | 
3. (R4), 118 : 1256 
(R4), 11$ : 1257 
ISCTBESC + 1258 
(RI), iSerbesc ; 
JSCTDESC R1 + 1261 
4(R1), RO : 
#5, 6(RO), 10$ ; 1263 
a-5, Zo(RE) R3 + 1265 
#0, 2 , 4(RO), RO : 
R6. 8 #23, 4(RO) : 
#2, (RO), 9$ + 1266 
#2, 9(ROS t 1267 
9$ ; 1258 
Re? : 1272 
#1, LNKSSETLASTCLU ; 
me. (R4), 12$ + 1276 
3, (R4), 14$ + 1277 
(R4), 14$ : 1278 
LNK$GL_CURCLU, SAVECLUSTER + 1280 
R2, LNR$GL_CURCLU + 1281 
> RELOCL OSTER’ : 1289 
SAVECLUSTER, LNKS$GL_CURCLU : 128 
STATUS, RO : 1586 


OU RAR Ty <AIMS 6 oe se So can RC ny aes RTE ee mek ie 8 Seca. Oe 3 


F 3 
voe=000-" 18885-1986 99:40:57 EC TaceR’SRESLAKVMALLO-682;1 rae 


89 1 global routine Lnk$setlastclu (cludesc) = 
90 egin 

91 ! 

38 ! RO 
o S 
94 
}) 


THIS ROUTIN 
: THE LAST CL 


| 
' = 
map 
g cludesc : ref block(,byte]; 
98 if (.lnk$gl_lstclstr_ eql 0) 
99 or (.cludesc(clu$l_base] gtru .lnk$gl_(stclstrfclu$l_base]) 
0 then Lnk$gl_lstclstr = .cludesc; 


0 return true 
0 end; 


Ok ak a tt tt 
oO 


Se Se Ge ee Ge Se Se Se Se ee ee Be Se Ge ee 


.ENTRY LNKSSETLASTCLU, Save R2 : 1289 
MOVAB LNKSGL_LSTCLSTR, R2 : 
MOVL LNKSGLILSTCLSTR, R1 


CLUDESC, RO 
CMPL 76(RO), 76(R1) 


2 
CLUDESC, LNKSGL_LSTCLSTR 
#i, RO 


00000000" EF 


2 

1 

0 04 AC 
1 4C 

2 06 AC 
0 


5 
5 
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5 


oo00o-00-—-0 0O 
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Ooooooeooeoo 
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; Routine Size: 33 bytes, Routine Base: $CODE$S + 0790 


3 
LE YRALLO 18- 30071382 9 3716 AX-11 Bliss-32 v4.0 Page ; 


LNI 
4 LINKER. SRCJLNKVMALLO. i} 231 (1 VvO4 


1 routine stack_isectbid : novalue = 

: begin 
i THIS ROUTINE BUILDS A DEMAND ZERO IMAGE SECTION FOR 
; USER STACK, IF ANY AND IF ON THE LAST CLUSTER 


1 
. Lnk$qw_stack neg ? IF THERE IS SOME STACK 
aF Ss ein KSat curclulclu$l_nxtclu] egl 0 ! AND WE ARE ON THE LAST CLUSTER 
a x! -lnk$gl_curclu eql” lnk$gl_defclu) 
en begin 
4 of (isect_base = .cntrl areg. addr - .lnk$gw_stack*512) ! SET BASE OF STACK 
($su control_r ' IF IT GOES BELOW CONTROL REGION 
4 
4 
1 


u 

then signal_ stop(} ing. "Sttovtto, 2, ! AN ERROR 

sect_base); 
IF CURRENT ISD IS THE LAST 
NE IN USE 


ONE U 
GO ALLOCATE A NEW DESCRIPTOR 
AND LINK TO THE PREVIOUS ONE 


GO CREATE ISD 
UPDATE CONTROL REGION POINTER 


! AND ALL DONE 
! OF STACK ALLOCATOR 


then begin 
Lnk$alloblk(isd$c_size, 
isctdesc = .isctdescLlis 


buildisdé. Lnk$gw_stack); 
cntrl_reg_addr = isect. base; 


ack,.1 

if isctdesclistét nksoy sie a 0 
is 

L$l 


ptévect ig tSt netted?) 
_nxtisdd; 
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a kk a 
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Be Oe ee Oe Oe Oe Oe Oe Oe OH Oe Oe Oe SHH Oe Oe SESH Oe SESE Eee 
0 09 Cd Cd CD Gn Cd GD Cd C9 CD CD 0D OD CD. CD GD CD: 
FWWWNWww 
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38 
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at 
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001C 00000 STACK_ISECTBLD: 
- WORD 


Save R2,R3,R 3: 1304 
54 00000000" EF 9€ 00002 MOVAB  LNK$GW erick R4 : 
53 00000000* EF 9E 00009 MOVAB ISEC R3 ; 
52 64 3¢ 0001 MOVZWL LNKS$GQ_STACK, R2 + 1310 
67 13 0001 BEQL 4$ ; 
51 000000006 00 D0 0001 MOVL § LNKSGL_CURCLU, R1 > 1311 
61 D3 0001C¢ TSTL (1) : 
. % Oolk BEQL =sé«éa1S : 
50 000000006 00 9€ 000 MOVAB LNKSGL_DEFCLU, RO + 1312 
50 1 01 00007 CMPL R1, RO” ; 
30 12 0002A BNEQ 4$ ; 
51 52 7 90 C 1$: ASHL. #9, R2 > 1314 
51 04 a3 C 0 SUBL3 RI. ENAL Re REG_ADDR, R1 : 
40000000 $F 1 pY G A CMPL sé. best OAs 35. + 1315 
13 1€ 0003F BGEGU 2$ : 
$ DD 0041 PUSHL ISECT_BASE : 1317 
DD 0004 PUSHL R ; 
DD 0004 PUSHL # > 1316 
000000006 8F DD 0004 PUSHL #LINS_STKOVFLO ; 
000000006 90 ee 4D CALLS #4, LIBSSTOP : 
0 14 Ad D 4 2%: MOVL ISCTDESC, RO : 1318 
60 D 8 TSTL (RO) : 
1 1 A NEQ 3$ 3 
po C PUSHL R > 1320 
7E 58 BF 9A ; MOVZBL #88, -(SP : 
000000006 00 2 FB 0006 ALLS #2, LWKSACLOBLK ; 


| 
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iboseo-19Re 99:57:16 


BBD TTT BBP BB ETI NANI pnononononn 
3 


isd$c_maxblk = %x'FFFF* 
isd$c_maxblkbyt = isd$c “maxblk*512; 


if -lactdesclis(Sl _nxtisd) eql 0 
then begin 
Lnk$alloblk(isd$c_si Telgetccegs sgt st nxtisd]); 
isctdesc = .isctdesc isl$l nxtis 
isctdesclisi$i _nxtisd] = -T; 


end; 
oreund = (1*.psctdesc(psc$b_align]) - 1; 
current_base = (.current base + pHa and not around: 
pscpart_base = .current 
psect_léngth = qpactdest pscbt_ length); 
psctdesc(psc$l_isect 
while ((.pscpart_base - isect base + 
and (.psect_ Length gtri 0)) 


pectdescLosc$ bare) = scurrent. _base; ' 
f .psctdesc(pSc$l_isect 
current_base = .current_base + .psctdesc(psc$l_length 


eql O"then’ psctdesc(psc$l igect] = 


fous tne normal_isectbld : novalue = 
beg n 
i THIS ROUTINE BUILDS THE NORMAL IMAGE- SEC TIONS OF THE 
ROGRAM REGION BY GATHERING COMPATIBLE P-SECTIONS IN 
CEXICAL ORDER 
routine findmask action (psctdesc) = 
pegin 
i THIS ROUTINE IS CALLED BY LNKSFNDPSCMSK FOR EACH PSECT 
THAT MATCHES THE MASK 
psctdesc : ref block(,byte); 
local 
around 
isect bLk 
symsnb : “ret bleché, byte], ' PTR TO NAME BLOCK 
psect_ Length 
pscpart yeas 
symbol ret *blockl, byte]; 
bind 


MAX ISD BLOCK SIZE 
EXPRESSED IN BYTES ALSO 


WITH APPROPRIATE ATTRIBUTES 
IF WE HAVEN'T arr goth gl I ay 


AND LINK THE PREVIOUS ONE 
TEMPORARILY MARK AS ALLOCATED 


COMPUTE THE ADJUSTMENT FOR ALIGNING 
! AND DO IT TH 
! SET BASE gg 39 SEGMENT 


i SET we 
! ENSURE 0 ISECT POINTER 


-psect_length) gtru isd$c_maxblkbyt 


do begin 

isect_blks = isd$c_maxblk; ' SET TO MAXIMUM ISD 

bulldisde: isect_blks); ! . IL LD ISD WE HAVE 

pnkSgl. curcly cTusl l_pages] = -ink$gl_curclulclu$l pages -isect_blks; ! ADD ISECT SIZE TO CLUS 
if beset tease $l sisect eq! LO then Psctgesc (psc eset = .isctdesc; ! IF PSECT NOT BOUND TO 
Link$al loblk (isd ¢ § EUR desetig ttt: nytisdd) "ALLOCATE A NEW ISD 

isctdesc = si isctde . ' LINK INTO LIST 

isctdesc t nxt : vt ORARILY MARK AS ALLOCA™™) 

psect. *tength rte bee baie - -isect_base + .psect_length) - isd$c mony hoyt ' REDUCE ECT L 
sect_base = (isect base + isd$c_maxblkbyt); T SET NEW ISECT BASE 

pscpart, base = .isec€_base; ' SET BASE OF PART OF PSECT 


SET P-SECT BASE 
-isctdesc; ! BIND PSECT TO ISECT IF NOT 
{ THEN UPDATE FOR THE NEXT 


3 
vos=000- 1ESeort98e QB:EZ:19  WMaldaPLAeScEz Mi 674Bo. P09 43 


899 i pscpart_base = .current_base; ! UPDATE PSECT BASE POINTER | 


} Fetirn true ' AND DONE 
! OF FINDMASK_ACTION 


gt 


ISD$C_MAXBLK= $3233 
ISD$C_MAXBLKBYT= 3553920 


03FC 00000 FINDMASK_ACTION: 
“WORD 


0 Save R2,R3,R4,R5,R6,R7,RB,RI ; 1335 
9 990000006 00 9 9002 MOVAB LNKSALLOBLK, R9 : 
8 0000' EF 9€ 000 MOVAB ISCTDESC, Rb ; 
0 68 D 901 MOVL ISCTDESC, R + 1357 
60 D 1 TSTL (RO) : 
10 1 001 BNEG ~=s«a1$ F 
50 DD 0001 PUSHL R + 1359 
7E 58 ar A 00019 MOVZBL #88, -(SP) ; 
$9 é FB 001D CALLS #2, LNKSALL ; 
A 98 00 000 9 MOVL @ISCTDESC, ISCTDESC + 1360 
00 Bg 01 CE 000 MNEGL #1 alsctbesc + 1361 
5 4 A b 00 7 1$: MOVL  PSCTDESC, R + 1363 
50 01 C (OA 00 : ASHL 44(R3), #1, RO : 
50 D7 000 DECL. AROUND : 
51 50 E8 AB& C1 000 é ADDL3 CURRENT_BASE, AROUND, R1 + 1364 
EB AB 51 50 ¢B 000 BICL3 AROUND,~R1, CURRENT BASE : 
52 £8 A8 DO 0003C MOVL CURR Nf BASE PSCPART _BASE + 1365 
54 C A3 00 00040 MOVL BR » PSECT_LEN + 1366 
55 20 Ad OF 0044 MOVAB * RS + 1367 
65 04 00048 CLRL eC ; 
56 EC AB DO 0004A MOVL ISECT 8 : 1368 
50 32 56 C3 O004E 28: SUBL 3 psepant f BASE. RO : 
5 54 ¢0 0005 ADDL Peécr LEN at : 
O1FFFEOO BF 30 Dt 0055 CPL RO. #33553926 ; 
54 08 if TSTL PSECT _LENGTH : 1369 
4E 1 38 BEQL 3 
57 FFFF i 3C 0006 MOV ZWL #65535 ISECT_BLKS : 1371 
7 dD 0006 PUSHL  ISE BLK KS : 1372 
00000000v EF 1 F 069 CALLS #1, ; 
0 000000006 : D0 00 0 MOVL tNkse 4 scuncty : 1373 
50 AO ¢ 7 ADDL2 SECT _BLKS 6cRO) ; 
6 D 7B T & ) + 1374 
1 7D BNE $ ; 
68 D 7F MOVL ISCTDESC, (RS) ; 
pp 3$: PUSHL | CDESC : 1375 
58 BF OA MOVZBL #88, -(SP) : 
3 FB CALLS #2, LNKSALLOBLK : 
D MOVL al Sctbesc ISCTDESC : 137 
01 ce MNEGL #1, @ISCTOESC : 137 
as f SUBL3 BA F PSCPART_B ASE : 1378 
FEOQ00200 E44 9 ROVAB - ; : PSECT LENGTH) gon’ PSECT_LENGTH ; 
OIFFFE BF C OF ADDL2 @# 9 sect. BAS : 1379 
EC AB D A? MOVL ISECT BASE, R : 1380 
56 D AB MOVL 6, PSCPART_BASE ; 


3; Routine Size: 


SESE3 


Se Se Se Ge Se Ge Oe Ge Ge FH Gs Ge Be Se Se Se Se Se Ge oe 


POIRIIRD at tt 2 2 2 0 
NM—OOOnOoufwn—CO 0M 


Or rooo ro 
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<o <Q 
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CoOoOCoooooo 
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SCODES + 0838 


eneeths isect-1,isc$w_mask] 
gentbit -isect-1,isc$w match); 


tion); 
su ateete base+511)/ 7§i2° 12; 


ink$gl_ curc lute lust _pages)" = prog ae onl 4 pages] + 


blKs; 


000C 00000 HORRAL JSESTOLS® 


201 bytes, Routine Base: 
1389 ! 
! , MAIN BODY OF NORMAL_ISECTBLD 
139 Local 
1337 9 isect_blks; 
139 bind 
1 3 attribmask = . 
1335 9 attribvaluée = 
1 3 current_base = .isect_bas 
1400 Lnk$fndp scmsk(aitribnisk attr ibvalue, indngsk 
1401 isect_blk eyrr 
1606 if oF oe esc List l pony 
140 then buildisd(.isect_blks i 
1404 
1405 
1406 isect_base = .current_base; 
1407 return true 
1408 end; 
00000090" 
50 
50 


FC 


000000006 
0 FC 


*OOWOMM Were ow 


Ovi >For Pow 


2 
FFFFFFFF 


00008200 


WORD 
ims ie 
C4 ite 
C 1 ADDL 
Dd 1 MOVL 
C 1 ADDLS 

} 
C 3 MOVZWL 
C MOVZWL 
Fe D CALL 
§ SUBL 

3 9 MOV 

C DIVL 
} 4 CMPL 

BNE 
DD 
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ENT_BASE, 24(R3) 


REATE IS 
ADD I-SECTION SIZE TO CLUSTER SIZE 
SET BASE OF NEXT I-SECT 


wEeBo? 


; Routine Size: 


105 bytes, 


00000000v EF 


F 
000000006 p ) 
0 i 


Routine Base: 


FC UA 


04 


SCODES + 0904 


thse BLK 8b “2 


a 5 


-Sep- AX-11 Bliss-32 V4.0-74 Page 44 
12: 38° 198 99:2 :4$ LINKER.SRCJLNKVMALLO.B52;1 . ah 
> 926 14 routine buildisd (npages) : novalue = 
3 F 5 144 begin ste 
; § 141 : ROUT INE TO AL LOCATE AN IMAGE SECTION DESCRIPTOR AND 
3 4 8 141 ' FILL IN ITS FIELDS, THEN LINK ON TO THE ISD LIST 
; 3 1ai¢ NPAGES = NUMBER OF PAGES TO ALLOCATE IN SECTION. 
; 931 1618 bind 
; 9 § 141 hdrisd = loctdesclistse per isd) lLockC, by ety ! SET POINTER TO PART FOR HEADER 
3 9 1018 matchctrl = .isec tgentbtt isect-1,isc$b_ma tetl ! ISD MATCH CONTROL 
3; 9 141 jocesthoge © ee gentbit.i isect-1. ier flags ! J-SECT FLAGS 
; 935 1420 jsec tpsc lags = .isectg ntbl gece Sc$w Spatch), ! MATCH CONTROL FLAGS FOR ISECT 
3; 9 1421 iscpfc = yect entbiC, isect-1,isc pfc ' PAGE FAULT CLUSTER PARAMETER 
; 9 14 ; isdsize = .isectgentbl(.isect- RS size), ! ISD SIZE PARAMETER 
3 4 3 1 ? isdtype = .isectgentbil.isect-1,isc$b code); ! ISECTION TYPE 
; 940 1425 if foge tae oat a 
3; 941 14 8 re efurni ! SKIP NULL ISECT DESCRIPTOR 
3 oi 14 Secthoce isl$l _nxtisd ] = 0; ! ENSURE END OF LIST 
; 94 1428 isctdesc is($t_ gover ised = .previsect; ! SET POINTER TO PREVIOUS ISECT 
3 944 1429 previsec iSctdes ! SET THIS AS NEW PREVIOU 
; 6945 1430 Wsctdesc istél “ec ludse = ,lnk$gl_curclu; ! SET POINTER TO si te DESCRIPTOR 
i 948 1431 2 isctdesclis($l—bufadr] = = 6; i NO BUFFER FOR ITS BINARY YET 
3; 94 14 § isctdesclisl$l_bufend ' $0 ZERO THE QUADWORD 
; 948 143 ink$gw_nisects = inkSow nisects eq; ! COUNT THIS ISECTION 
: 949 1434 2 hdrisdlisd$w_size) = Bie; i AND COPY INTO ISD 
; 950 163? hdrisdlisd$w_pagcnt gor es ! INSERT PAGE COUNT 
3; «951 14 § hdrisdlisd$l“vpnpfc] = teett “bese *=9; ! INSERT VIRTUAL PAGE ADDRESS 
; 226 14 if (hdrisdlisd$b pfc) = minu(? Tnpages.. (nk$gl_curclulclu$b_pfcJ)) Ay | 0 ! IF NO PFC GIVEN FOR CLUSTER 
; 95 1438 then hdrisdlisd$6_pfc] = minuliscpfc..npages); ' PFC IS MINIMUM OF DEFAULT 
3; 954 1439 i VALUE AND NUMBER OF PAGES 
; 4955 1440 hdrisdlisd$l_flags] =_isectflags; i INSERT FLAGS 
: oe8 1441 hdrisdlisd$v_matchctl] = matchctrl; i INSERT THE MATCH CONTROL FIELD 
; 95 1406 hdrisd isd$b_t typ J= i sdtype; i AND TYPE 
; 958 144 per is¢ isd$l- i SET NO RELATIVE DISK wet, yer ALLOCATED 
; 959 1444 ink$gl_ ~curetitelugh. lstisdd = .isctde i WHICH WILL BE ADJUSTED L 
; 960 1445 ink$gl“curclulclu$l"“nisects] = sinkSgl_ durcluCe lust _nisects] + 1 COUNT THIS ISECT IN CLUSTER 
3; 961 1278 if ¢ séctpsct lags and ges s$m_ vec) neq 0” IF THIS IS A VECTOR ISEC 
3 206 144 en hdrisdlisd$v_véctor] = true; i THEN SET THE FLAG 
3; 9 1448 return; i SAVE END POINTER 
3; 6964 1449 1 end; ! OF ISECT DESCRIPTOR BUILDER 
007C 00000 BUILDISD: 
- WO Save R2,R3,R4,R5,R6 : 1409 
5¢ 00000000' EF 4 000 MOVAB PREVISECT, R6 3 
5 04 =A 3 000 MOVL Apcrpese R5 3; 1417 
38 18 A 00D MOVAB 24(R5), R2 : 
FC AG 11 MOVL ISECTGENTBL, RO : 1418 
7 FB Ab . 15 vee ett R4 ; 
4 09 19 MULL2 #9, R4 3 
FC A440 1¢ TSTB. = =4 (R4) CROJ > 1425 
01 859 BNEQ 1$ ; 
0 RET ; 


anf 


reef 
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aoaan = Syabols ocooeeee Pages Processing 
File Total Loaded Percent Mapped Time 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE)/LIS=LIS$:LNKVMALLO/OBJ=OBJ$:LNKVMALLO MSRC$:LNKVMALLO/UPDATE=(ENH$:LNKVMALLO) 


; Size: 2580 code + 504 data bytes 
01:06.0 


Elapsed Tees 02:27.5 
Lines/CPU Min: 1317 
Lexemes/CPU-Min: 37661 
ete Used: 319 pages 
Compila 
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